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ABSTRACT 


The  MAGIC  computer  simulation  generates  target  description  data 
consisting  of  item-by-item  listings  of  the  target’s  components  and  air¬ 
spaces  encountered  by  a  large  number  of  parallel  rays  emanating  from  any 
desired  attack  angle.  A  combinatorial  geometry  technique,  which  defines 
the  locations  and  shapes  of  the  various  physical  regions  in  terms  of  the 
intersections  and  unions  of  the  volumes  contained  in  a  set  of  simple 
bodies,  is  used  to  represent  complex  target  structures.  A  grid  cell 
pattern  is  superimposed  over  the  surface  of  the  target  and  parallel  rays 
are  ’’fired”  from  each  grid  cell. 
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Part  II 

SECTION  III,  SIMULATION  MODEL  (Continued) 
Subroutine  QRTIC(C,R,N) 


Subroutine  QRTIC  is  called  by  Subroutine  TOR  to  solve  a  polynomial 
equation  of  the  type  +  ax^  +  bx^  +  cx  +  d  =  0,  using  Ferrari 's  solution 
of  the  quartic  equation  where  the  coefficient  of  is  assumed  to  be  one. 
Four-element  array  R  will  contain  the  roots,  and  variable  N  will  contain 
the  number  of  real  roots.  If  there  are  two  real  roots,  they  will  be  placed 
in  R(l)  and  R(2)  with  the  complex  roots  in  R(3)  and  R(4)  in  the  form  R(3)  ± 
iR(4).  If  there  are  no  real  roots,  the  complex  roots  will  be  stored  in 
the  form  R(l) ±  R(2)  and  R(2)  ±  1R(4) .  Subroutine  QRTIC  calls  Subroutine 
CUBIC  to  find  the  roots  of  the  resolvent  cubic  equation. 

The  statement 


DIMENSION  C(4)*RU}*CC<3>*RR0) 


is  used  to  dimension  arrays  for  the  four  coefficients  of  the  quartic  equation, 
for  the  four  roots  of  the  quartic  equation,  for  the  three  coefficients  of  the 
resolvent  cubic  equation,  and  for  three  roots  of  the  cubic  equation. 

The  statements 


SOLVES  A  polynomial  EQUATION  Of  THE  TYPE  •  C(1)*X*»3 

•  •  C(3(*X  *  ■  0  USING  TM£  fERRABl  SOLUTION  OF 

THE  QUaPTIc  equation,  THE  COEfflClENT  Of  X*»4  IS  ASSUMED  TO  BE  !• 
R(*t  contains  The  roots,  N  contains  the  number  Of  REAL  ROOTS. 

If  there  A«E  2  real  ROOTS  THEY  hILL  BE  IN  RIU  *^^0  “ITM  THE 

complex  ROOTS  In  Rl4)*It  IF  THERE  ARE  NO  REAL  ROOTS  THE 

complex  ROOTS  are  IN  R(ll*«R(2lM  ANd  R <31 *-R (♦) ♦! . 


COMPUTE  RESOLVENT  CUBIC 


C150«Ctll*C<l) 

CCU>*-»5»C<2> 

CC(2»>«.25«CtI>*C(3)-C(4l 

CC(3)».125*(  Cl4>'‘l4.*Cl2t“ClS0)-C(3»*C(3l 
Call  CUBIC (CC»RR*NNt 


» 


are  used  to  compute  the  coefficients  of  the  resolvent  cubic  equation 


3  b  2  (ac-4d)  ,  4bd-a^d-c^ 

"  -  2  ”  +  +  - r - ° 


(201) 


where  y  =  2w,  frois  the  coefficients  of  the  quartic  equation.  Subroutine 
CUBIC  is  called  to  compute  the  roots  of  the  resolvent  cubic  equation. 
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The  statement 


§7  OETCRMINE  if  possible  solution 

c 

Tr.2S*C1S0-CI2) 


is  used  to  compute  the  quantity  a  /4-b  for  use  in  solving  the  coefficients 
of 


(202) 


which  splits  into  two  quadratic  equations  with  properly  chosen  e  and  f: 

^  2  2  ^  =  ±(ex+f) 

Solving  for  x  using  the  quadratic  formula  results  in 


J' 

Y  —  _ ^ ^ _ 

-  I  +ey  -  4  (w-f) 

la  2 

CM 

for  two  roots  and 


.  _  -  f  - ' 

^  “  A  (w-f) 

3,4  2 

2 

(203) 


(204) 


for  the  remaining  two  roots - 
The  statement 

00  10  I«ltNN 


is  used  to  begin  a  DO  loop  to  test  each  real  root  returned  from  Subroutine 
CUBIC  to  determine  if  there  are  any  real  roots  in  the  quartic  equation. 

The  statements 


flOOT«RR 1 1 > 

«SOwT*flOOT«flOOT 

IFUBSIASQ)  .LE.QtQOOOOl)ASO«Ot 
ir(*SO.LT.OtO>OutO  10 
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2 

are  used  to  compute  the  coefficient  of  x  of  Equation  (202).  If  it  is  very 
nearly  zero,  it  Is  set  to  zero-  The  coefficient  is  tested  for  a  less-than- 
zero  condition,  which  means  that  for  the  given  real  root  of  the  cubic  equa¬ 
tion  there  are  no  real  roots  for  the  quartic  equation.  Therefore,  the 
program  loops  to  consider  the  next  real  root,  If  any. 

The  statements 


BSQ»ft00T*RQQT»C(4» 

IF (ASSieSQ) .LE*0* 000001 >BSO"Ot 
IF <BSO,Oe>o*0>OOTO  20 
10  CONTI NUC 
N«0 

RETURN 


are  used  to  compute  the  constant  term  of  Equation  (202).  If  it  is  very 
nearly  zero  it  is  set  to  zero.  The  value  is  tested  for  a  greater  than  or 
equal  to  zero  condition,  which  means  that  for  the  given  real  root  of  the 
cubic  equation  there  are  real  roots  for  the  quartic  equation.  If  the  con¬ 
stant  term  of  Equation  (2h2)  is  less  than  zero,  the  given  real  root  of  the 
cubic  equation  will  not  result  in  real  roots  for  the  quartic  equation.  The 
program  therefore  loops  to  consider  the  next  real  cubic  root.  If  all  real 
cubic  roots  have  been  considered  without  satisfying  the  conditions  for  real 
roots  in  the  quartic  equation,  the  variable  N  (the  number  of  real  roots  in 
the  quartic  equation)  is  set  to  zero,  and  the  subroutine  returns  control  to 
Subroutine  TOR. 

The  statements 


COMPUTE  FIRST  TtaO  ROOTS  OF  OOARTIC  COUATIOn 

^  20  TW0a9"C(1 (•ROOt-CtS) 

AvSORTtASQt 

n«ST9N(SaRTt8SC))  tTHOAB) 

NPO 


are  used  to  compute  the  coefficient  of  x,  the  square  root  of  the  coefficient 
of  x2,  and  the  square  root  of  the  constant  term  with  the  sign  of  the  coeffi¬ 
cient  of  X  of  Equation  (202)*  The  variable  N  (the  number  of  real  roots  in 
the  quartic  equation)  is  Initialized  to  zero. 
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The  statements 


RrAl.«t2S*(**A«C(U  ) 
OISc*ReAl.*ReAL«ROOT*0 
SOROOTaSORT CABS (DISC)) 


are  used  to  compute  the  values  for  solving  quadratic  Equation  ( 203)  for  the 
first  set  of  roots;  and  to  solve  for  the  value  of  the  square  root  of  the 
discriminate. 

The  statements 

ir<ABS(0lScl  *LC«  0*00000 P013C*0* 

IF(OISC*Lr*0*0>OOTO  )0 


are  used  to  determine  if  the  absolute  value  of  the  discriminate  is  very 
nearly  equal  to  zero,  and,  if  it  is,  to  set  it  to  zero.  A  test  is  made  to 
determine  if  the  value  of  the  discriminate  is  less  than  zero.  If  it  is,  the 
roots  are  complex  conjugates.  Therefore,  the  program  branches  to  compute 
the  two  imaginary  roots. 

The  statements 


C 

Ca  discriminate  .be*  0  COMPUTE  2  REAL  ROOTS 
C 

N«2 

R(1)«REAL«SQR00T 
R(2)"REAfSQR00T 
90T0  40 


are  executed  if  the  discriminate  was  greater  than  or  equal  to  zero.  They  are 
used  to  set  variable  N  to  two  to  indicate  two  real  roots.  The  values  of  the 
roots  are  computed  and  stored  in  the  first  two  elements  of  array  R.  The  pro¬ 
gram  then  branches  to  determine  the  condition  of  the  two  remaining  roots. 

The  statements 

C 

C%  DISCRIMINATE  tLT*  0  COMPUTE  2  IMAGINARY  ROOTS 

C 

30  R0>«REAL 
RU)<iSOROOT 
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are  executed  if  the  discriminate  was  less  than  zero,  indicating  that  the 
roots  are  complex  conjugates.  These  statements  therefore  store  the  imagi¬ 
nary  roots  in  the  last  two  elements  of  array  R. 

The  statements 


C 


c 


compute  last  tmo  poots  or  ouartic  eooation 


40  BEAL-REAL-A 

01SC*REAt*REAL-R00T-a 

SQROOT.SORT  <A9S«01Sc>  > 


are  used  to  compute  the  values  for  solving  quadratic  Equation  (20A)  for  the 
second  set  of  roots  and  to  solve  for  the  value  of  the  square  root  of  the 
discriminate. 

The  statements 


IP  CABS  (DISC)  »i.E.  0.00000 1 »  01  SC.O* 

TFCoISc.LT.O.OIQOTO  50 


are  used  to  determine  if  the  absolute  value  of  the  discriminate  is  very 
nearly  equal  to  zero,  and,  if  it  is,  to  set  it  to  zero.  A  test  is  made  to 
determine  if  the  value  of  the  discriminate  is  less  than  zero.  If  it  is,  the 
roots  are  complex  conjugates,  and  the  program  branches  to  store  the  two  imagi¬ 
nary  roots. 

The  statements 


CT  discriminate  .6E.  0  COMPUTE  2  REAL  ROOTS 
C 

n.N.2 

R(N)»REAL-SQ«O0T 

rcn-i)«reau*sqroot 

return 


are  executed  if  the  previous  test  of  the  discriminate  proved  that  the  roots 
are  real.  These  statements  store  the  two  real  roots  in  the  R  array  after 
determining  the  proper  location  in  the  R  array  based  on  the  number  of  real 
roots  already  computed.  Control  is  then  returned  to  Subroutine  TOR  with 
the  values  of  the  real  roots. 
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The  statements 


C 

Cd  discriminate  .it,  0  compute  ?  IMAQINAHY  ROOTS 
C 

SO  RtN*naReAL 
R(N*2taSQROOT 
RETURN 


are  executed  if  the  discriminate  was  less  than  zero,  indicating  that  the 
roots  are  complex  conjugates.  These  statements  therefore  store  the  imaginary 
roots  in  the  R  array  at  a  location  based  on  the  number  of  real  roots  already 
computed.  Control  is  then  returned  to  Subroutine  TOR  with  the  values  of 
the  real  roots. 
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Subroutine  CUBIC (C>R>N) 

Subroutine  CUBIC  is  called  by  Subroutine  QRTIC  to  solve  a  polynomial 
equation  of  the  type  +  ax^  +  bx  4*  c  =  0  where  the  coefficient  of  x  is 
assumed  to  be  one.  The  three  roots  are  passed  back  to  Subroutine  QRTIC 
through  argument  R.  The  number  of  real  roots  is  passed  back  through  argu¬ 
ment  N.  If  there  is  only  one  real  root,  it  will  be  in  R(l)  with  the  complex 
roots  in  R(2)  i*R(3). 

The  statement 


OlHCNSlON  CO)  fR<3) 


is  used  to  dimension  two  three— element  arrays  for  the  three  coefficients  of 
the  polynomial  equation  and  the  three  roots  of  the  equation. 

The  statements 


St  compute  roots  of  cubic  equation 

c 

CISQ.C(1)*C(1) 

pMC(2)-ClS0/3. 

0"CI3)4C<l)*<2«*Cl8Q/27*»C(a>/3»> 


are  used  to  solve  the  expressions  (from  Cardan's  Solution) 


and 


2 

a 

27 


where  c(l)  =  a,  c(2)  =  b,  and  c(3)  - 
The  statements 

C3*C(l)/3» 


c 


(207) 

(208) 


are  used  to  solve  the  expression 


(214) 
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from  the  equation 


and  a/ 3  from  the  equation 


The  statements 


iFUB5(oisc).Le*i>oe~e>Disc«o< 

IF{DISCtLe.o*0>aOTO  in 


(214) 


(209) 


are  used  to  set  DISC  to  zero  if  the  absolute  value  of  DISC  is  very  nearly  zero. 
DISC  is  tested  to  determine  if  it  is  less  than  or  equal  to  zero.  If  it  is,  the 
program  branches  to  compute  three  real  roots  for  the  polynomial  equation.  If 
DISC  is  greater  than  zero,  there  are  only  one  real  root  and  two  complex  roots. 

The  statement 


C, 

C7  CONOtriON  for  I  RCAL  and  Z  C0Mf>LtM  Roots 

c 

N-1 


is  used  to  set  N  to  one  to  indicate  to  the  calling  program  that  the  solution  of 
the  cubic  equation  results  in  only  one  real  root. 

The  statements 


SQRQ0Ts50ftT(DtSC/10ai ) 
MjilF0*,S*0 
ACU»*MALra#SQR00T 
0CU«-H4LFQ-SQROOT 


are  used  to  solve  the  quantities  under  the  radical  of  equations 


A.  yrrrvf 


(212) 
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and 


The  statements 


(213) 


*»SlflNU0S(ACU)»*.  333333333333333**5^1 

B-SI0N(*BS  (BCU»««.  333333333333333 


are  used  to  solve  Equations 
the  sign  of  the  expression 


(212)  and  (213)  for  A  and  B,  respectively, 
under  the  radical  as  the  sign  of  the  result. 


using 


The  statement 


Is  used  to 


compute  the  value  of  A  +  B  for  solving  the  equations 


“  ■  A-f^ 

^2,3  ”  '  2 


±  i 


(210) 

(211) 


The  statements 


R(l)aAa«C3 

»(?)■•. 5*A0-C3 

R (3) 866028404* tA*B> 

return 


are  used  to  compute  the  one  real  root,  with  the  result  in  R(l),  and  the  tw^ 
conjugate  complex  roots,  with  the  real  part  of  the  complex  root  In  R<2)  imd 
the  cLplex  part  in  R(3)  using  Equations  (2121  and  (213  and  Equation  (211). 

Frograni  control  returns  to  Subroutine  QRTIC- 


The  statement 


C 

C%  CONDITION  F0f»  1  RtAL  «00TS 
C 

!0  Hmy 


461 


TN  4565-3-71  Vol  II 


is  used  to  set  N  to  three  to  indicate  to  the  calling  program  that  Che  Solution 
of  the  cubic  equation  results  in  three  real  roots. 


The  statements 


T»SQRTuBStP)/3,l 

TT«T*T 


are  used  to  compute  the  value  of  2  /  -  p/3  for  use  in  solving  the  cubic  equa¬ 
tions  (trigonometric  solution) 


I 

=  2  V-p/3  cos  ('f/3)| 


^2.3  "  V-p/3  cos  {<t/3  ±  60°) 

The  statement 


(215) 

(216) 


IP(OlSC*CQ,o*0lOOTO  2o 


is  used  to  determine  if  two  of  the  three  real  roots  are  equal  by  testing  DISC 
for  a  zero  value. 


The  statement 


RHijaATANz (SORT (-D1SC/ZT*  >  t-OI/J. 


is  used  to  compute  the  value  of  4/3  in  radians  for  solving  Equations  (215)  and 
(216)  where 


cos  — 

2  /-(p/3)3 

The  statements 


(217) 


R(ll«TT«COS(PHl3UC3 
R(2l«TT*C0S(PHl3*z. 0943951 03) *03 
R ( 3taTT*COStPHl3-2. 0943951 03> *03 
RETURN 
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are  used  to  compute  the  three  unequal  roots  from  Equations  ( 215)  and  (216) 
and  Equation  (217).  The  program  returns  control  to  Subroutine  QRTI  . 


The  statements 


C4  CONDITION  rOR  ^  OR  3  EOUiL  ROOTS 

c 

20  R(l»»SIflN<TTf-8)-C3 
R(21«S10NIT»8)-C3 
R(3)»R12) 

return 


are  executed  if  two  of  the  three  real  roots  are  equal,  ^e  root  equal  to 
2  V^^(F7^  =  y  in  Equation  (21^  with  the  sign_of  y  equal  to  the  ^^8"  ^  J* 
The  other  two  equal  roots  are  equal  to  /  -  (p/^  -  y  in  Equation  (  Q 
the  sign  of  y  equal  to  the  sign  of  q.  The  program  returns  control  to 

Subroutine  QRTTC. 
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Subroutine  UN2(L.J1.J2) 

Subroutine  UN2  is  called  by  other  subroutines  of  the  MAGIC  program 
when  unpacking  of  two  integer  data  Items  from  a  single  computer  word  Is 
required.  L,  the  pointer  to  the  location  of  the  word  in  the  MASTER  array, 
is  passed  to  Subroutine  UN2,  Subroutine  UN2  unpacks  the  two  15-blt  integer 
data  items  and  passes  them  back  to  the  calling  routine  via  Subroutine  UN2 
integer  variables  J1  and  J2 .  The  two  data  items  appear  in  packed  format  as 


r 

15  bits 

15  bits _ 1 

1  Unused 

Jl 

1 

L 

+ 

L 


The  statement 

UNPACK  2  15-BlT  INTEGER  DATA  ITEMS  FROM  L  PORD  IN  HASTCK  ARRAY 
C 

common  master ( inooo) 


is  used  to  make  the  MASTER  array  available  to  this  subroutine. 
The  statements 


I3mMASTCR(L) 

Jl»l3/3276« 

J2«13-J|»3276» 

return 


are  used  to  store  the  MASTER  array  word  referenced  by  pointer  L  in  word  13. 
Variable  J1  is  equated  to  the  data  in  the  15  bits  previous  to  the  last  15 
bits  by  dividing  the  word  by  2^^^  thus  shifting  right  15  bits  and  leaving 
only  Jl,  The  J2  data  item  is  unpacked  by  subtracting  J1  left-shifted  by 
15  bits  from  13,  leaving  only  J2.  The  left-shift  of  15  bits  is  performed 
by  multiplying  the  word  by  2^5 _ 


464 


TN  4565-3-71  Vol  II 


Subroutine  UN3 (L, Jl, J2 , J3) 

Subroutine  UN3  is  called  by  Subroutine  G1  when  unpacking  of  three 
Integer  data  items  from  LIO,  Subroutine  G1  working  storage  in  the  MASTER 
array  is  required.  L,  the  location  of  the  packed  word,  is  passed  to  Sub¬ 
routine  UN3  from  Subroutine  Gl.  Subroutine  UN3  unpacks  the  two  six-bit  and 
one  15-bit  integer  data  items  and  passes  them  back  to  Subroutine  Gl  via 
Subroutine  UN3  integer  variables  Jl,  J2,  and  J3.  The  three  data  items  appear 
in  packed  format  as : 


Q 


1  6  bits 

6  bits  [ 

Unused 

1  Jl 

: _ i 

f 

L 


15  bits 
J3 


The  statement 


h  UNPACK  2  6-0IT  AND  I  IS-BIT  INTCeeP  DATA  ITEMS  FROM  9\  -ORKtNO 

5  STORAGE  AT  THE  L  WORD  IN  THE  MASTER  ARRAY 

C 

COMMON  MASTER! loOOOl 


is  used  to  make  the  MASTER  array  available  to  this  subroutine. 
The  statements 


l3>MASTeRtL> 

J2"12-dl*6A 

J3"I3-I2*327«8 

return 


are  used  to  store  the  MASTER  array  word  referenced  by  pointer  L  in  word  13. 

13  is  right-shifted  15  bits  and  equated  to  12,  leaving  only  Jl  and  J2.  Jl 
is  determined  by  right— shifting  12  six  bits,  leaving  only  the  six  bits  of  Jl. 
J2  is  determined  by  subtracting  Jl ,  left-shifted  by  six  bits,  from  12,  leav¬ 
ing  only  J2.  J3  Is  finally  determined  by  subtracting  Jl  and  J2  of  12,  left- 
shifted  by  15  bits,  from  13,  leaving  only  J3.  The  right-shift  of  6  bits  or 
15  bits  is  performed  by  dividing  word  L  by  2^  or  2^^,  respectively.  The 
left-shift  of  6  bits  or  15  bits  is  performed  by  multiplying  word  L  by  2  or 
2^^  respectively. 
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Subroutine  OPENKfL, Jl, J2. J3) 


Subroutine  OPENK  is  called  by  Subroutine  CALC  when  unpacking  of  three 
integer  data  items  from  the  ITR  array  prepared  by  Subroutine  TRACK  is 
required.  L,  pointer  to  the  location  of  the  word  in  the  ITR  array,  is 
passed  to  this  subroutine  from  Subroutine  CALC.  Subroutine  OPENK  unpacks 
the  three  12-bit  integer  data  items  and  passes  them  back  to  Subroutine  CALC 
via  integer  variables  Jl,  J2,  and  J3.  The  three  data  items  appear  in  packed 
format  as : 


12  bits 

12  bits 

12  bits 

Unused 

Jl 

j — 

J2 

J3 

t 

L 


The  statement 


CO»»MON/0T«4cK^0l*02»KMlT»LMA**TR»200)»*e5<J>  •iWTRTiICNCt 

1  rTA(2oo>*CA*cets*fSe 


is  used  to  make  the  ITR  array  available  to  this  subroutine. 


The  statements 


C 

Cl  UNPACK  3  12-BIT  inteocr  oata  itcms  From  component  LINE-OF-SIOhT 

C  storage  array  ITR.  THE  THREE  ITEMS  ARE 

C  /  surface  number  /  BOOT  NUMBER  t  NEXT  REGION  / 

C 

I3"1TR(|.) 

I2»I3/40R6 

J1*I2/A096 

J2"l2-Jl*Ao9G 

J3»I3-12«A096 


are  used  to  store  the  ITR  array  word  referenced  by  L  in  word  13.  13  is 
right-shifted  12  bits  and  equated  to  12,  leaving  only  Jl  and  J2  in  12.  Jl 
is  determined  by  right-shifting  12  12  bits,  leaving  only  the  12  bits  of  Jl. 
J2  is  determined  by  subtracting  Jl,  left-shifted  by  12  bits,  from  12,  leav¬ 
ing  only  J2.  J3  is  finally  determined  by  subtracting  Jl  and  J2  of  12,  left- 
shifted  by  12  bits,  from  13,  leaving  only  J3.  The  left-shift  of  word  L  by 
12  bits  is  performed  by  multiplying  by  2^2.  The  right-shift  is  performed 
by  dividing  word  L  by  2^2, 
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Function  RAN(M) 

Function  RAN  is  called  by  Subroutines  GRID,  AREA,  and  TROPIC  to  gen¬ 
erate  a  random  number  between  zero  and  one. 

The  statement 

COMMON/R ANOM/ I RN 


is  used  to  pass  a  number  into  this  routine  from  which  a  number  between  zero 
and  0.9  will  be  generated.  A  new  number  is  passed  back  into  the  common 
area  for  use  when  the  random  function  is  again  called. 

The  statements 


ft  OIVCN  A  number  IRN.  OENCRATC  a  random  number  BetMCEN  0  and  I 

c 

RAN«URAn31(1RN) 

return 


are  used  to  call  Function  URAN31  to  generate  a  random  number  from  the  number 
given  in  IRN  and  to  return  control  to  the  calling  subroutine  when  the  random 
number  has  been  determined. 
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Function  URAMaifl) 

Function  URAN31  is  called  by  Function  RAN  to  perform  the  actual  compu¬ 
tations  of  the  generating  of  a  random  number  between  zero  and  0.9.  The 
argument  is  also  revised. 

The  statements 

tr(I)ZQ*10*20 

19 


are  used  to  determine  if  the  argument  for  Functions  RAN  and  URAN3i  has  a 
value  other  than  zero.  If  the  argument  is  zero,  the  number  llllllll  is 
assigned  to  the  argument. 

The  statements 


29 

J«J-(J/6710eB64>*«7 108664 
J»J*25 

JMJ-U/67198664>  *67 108864 
J»J*5 

(d/67l06B64) *67198664 

A1>J 

tlRAN3v>Al/67108864. 

RCTURN 


are  used  to  generate  a  random  number  from  the  number  llllllll  if  the  function 
argument  is  zero;  or  from  the  value  of  the  argument  if  it  is  other  than  zero. 
The  resultant  random  number  between  zero  and  0.9  is  assigned  to  the  function 
name;  at  the  same  time  a  new  value  for  the  argument  is  assigned  for  future 
calls  to  the  random  function. 
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Subroutine  CROSS (ANSWER. FIRST. SECOND) 


Subroutine  CROSS  can  be  called  by  Subroutine  GENl,  CALC,  or  ARS  for  the 
purpose  of  computing  the  coordinates  of  the  resultant  vector  from  the  cross 
product  of  two  vectors. 

The  statement 


OIMCNSJON  anSWCRIj) »FIRST (3) tSCCONO<J> 


is  used  to  dimension  three  three-element  arrays  for  the  coordinates  of  the 
two  known  vectors  and  the  resultant  cross-product  vector. 

The  statements 


C. 

Cl 


COMPUTE  CROSS  product  ANSWER  •  PiRST  A  SECOND 


ANSWERd)  ■  rXRST(2» •SECOND (3) 
answer •  FIRST «3»*SeC0N0<i» 
answer (3>  •  P1RST(1»*SEC0N0<*> 
return 


flRST(3>*SEC0N0(2> 
FIRST (1)*SCC0N0(3> 
FIAsT(2)«SEC0N0<1) 


are  used  to  compute  the  cross-product  of  two  vectors  whose  coordinates  are 
passed  by  arguments  FIRST  and  SECOND;  and  to  store  the  coordinates  of  the 
resultant  vector  in  argument  ANSWER  for_passing  back  to  the  calling  program. 
The  cross  product  of  two  vectors  A  and  B  is  given  by  the  expression 

A  X  B  =  (AyBz  -  Az*By)^  +  (Az-Bx  -  Ax-Bz)y  +  (Lc-By  -  AyBx)2 


469 


TN  A565-3-71  Vol  II 


Function  DOT (FIRST, SECOND) 


Function  DOT  is  called  by  Subroutines  GENI,  CALC,  ARS,  TEC,  and  TOR  for 

computing  the  resultant  scalar  quantity  from  the  dot  product  of  vectors  FIRST 
and  SECOND. 

The  statement 

OIMENtlON  riR«Tl31»SCc0N0{3> 


is  used  to  dimension  two  three-element  arrays  for  the 
vectors  passed  in  the  arguments. 


coordinates  of  the  two 


The  statements 


C. 

Cl  COMMUTE  DOT  PRODUCT  OOT  •  FIRST  .  SECOND 

c 

OOT  ■  FIRST  (I  I  *SEC0N0<W  •FIRSTS •S|CO«D(E)  •FIRST  tjlMCCONOd) 


are  used  to  compute  the  dot  product  of 
passed  by  function  arguments  FIRST  and 
is  returned  to  ^he  calling  program  via 
of  two  vectors  A  and  B  is  given  by  the 


two  vectors  whose  coordinates  are 
SECOND,  The  resultant  scalar  quantity 
the  function  name.  The  dot  product 
expression 
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Subroutine  UNIT(V) 


Subroutine  UNIT  is  called  by  Subroutine  GENI  or  Subroutine  to 

compute  the  direction  cosines  of  a  vector  passed  to  this  subroutine  by 
argument  V.  The  resultant  coordinates  are  passed  back  to  the  calling 
program  through  argument  V. 


The  statement 

DIMENSION  VIJI 


is  used  to  dimension  a  three- element  array  for  the  coordinates  of  the  vector 
passed  to  this  subroutine. 

The  statements 


h  COMPUTE  UNIT  VECTOR  IDIWCTION  COSINES  OF  VECTOR) 

^  T£MP  >  SORT tOOT<V*V> ) 

V{l)«Vn>^TEMP 

VI2)*VI2>/TENP 

V(3)«VI3l/TENP 

return 


are  used  to  compute  the  scalar  length  of  the  vector  by  computing  the  square 
root  of  the  vector  dotted  on  itself.  The  length  of  each  coordinate  vector 
is  divided  by  the  scalar  length  of  the  vector,  resulting  in  the  direction 
cosines  of  the  vector.  These  are  returned  to  the  calling  program  through 
argument  V.  The  unit  vector  of  a  given  vector  A  can  be  expressed  mathemati 

cally  as 

A. 

A  =■  ^  _ 

i  Va  *  A 


where  1  is  the  x,  y,  or  z  coordinate. 
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Function  XDlSTfXA^XB^ 


called  by  Subroutines  TRACK,  CALC,  TESTG.  VOLUM,  and 
DCOSP  to  compute  tl^  dlst^ce  between  two  points  passed  into  this  routine 

bv^utf H  ^  function  subprogram  computes  the  distance 

by  utilizing  the  standard  distance  formula 


Distance  = 


The  statements 


C 

Cl  COMPUTE  TME  DISTANCE  BETWEEN  TWO  BIVen  POINTS  XA  AND  XB 
C 

DIMENSION  XAO)«XBCS) 

XSUk«o, 


Me  used  to  dinenslon  two  three-element  arreys  for  the  coordinates  of  the  two 
l«ints  passed  into  this  routine.  Variable  XSUM  is  then  Initlallred  to  aero 

The  statements 


on  10  iMifj 

XSUM«XSUM« (XA  1 1 > -XB ( I U ••z 
10  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  sum  the  dist 
coordinates  between  the  two  points. 


ance  squared  for  each  of  the 


The  statements 


XOISTaSORTfXSUMI 

RETURN 


are  used  to  compute  the  square  root  of  the  summed 

in  the  distance  between  the  two  given  points.  The 
ing  program. 


distance 

routine 


squared  which  results 
returns  to  the  call- 
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Subroutine  DCOSP(XA,XB,WA) 

Subroutine  DCOSP  is  called  by  Subroutines  CALC,  TESTG,  and  VOLUM  to  com¬ 
pute  the  direction  cosines  from  point  XA  to  point  XB.  This  is  accomplished  by 
calling  Function  XDIST  to  compute  the  scalar  distance  from  point  XA  to  XB;  and 
dividing  each  coordinate  vector  between  the  two  points  by  the  distance  between 
the  two  points. 

The  statement 


cT  coHPUTt  the  direction  cosines  from  Point  to  point  xe 

C  XNO  STORE  OlRtCTION  COSINES  IN  nA 
^  dimension  XAO)  tXB(3>  tWAO) 


is  used  to  dimension  three  three-element  arrays  for  the  coordinates  of  the  two 
points  and  the  resultant  direction  cosines. 


The  statement 

OISaADlSTUAtAB) 


is  used  to  call  Function  XDIST  to  compute  the  distance  between  the  two  given 
points  passed  to  this  subroutine. 

The  statements 


00  10  I*l»3 

wA(i»»(x8(n-xAm)/ois 
10  CONTINUE 
return 


consist  of  a  DO  loop  which  is  used  to  divide  each  coordinate  vector  between  the 
two  points  by  the  distance  between  the  two  points.  The  result  is  the  direction 
cosines  of  the  vector  from  point  XA  to  point  XB.  In  mathematical  terms 

5^.  -  XA 

^  ^ 

-  X®i> 

where  i  represents  the  x,  y,  or  z  coordinate  of  the  point. 


473 


TN  4565-3-71  Vol  II 


Subroutine  TROPIC (WP) 


Subroutine  TROPIC  is  called  by  Subroutines  GRID  and  AREA  to  calculate 
isotropic  direction  cosines.  Each  call  to  Subroutine  TROPIC  generates  a 
dirierent  set  of  direction  cosines. 


The  statement 


QCNERATC  RANDOM  DIRECTION  COSINES  FROM  AN  ISDtRQPIC  DISTRIBUTION 
C 

dimension  WPO) 


is  used  to  dimension  a  three— element  array  for  the 
ated  random  direction  cosines. 


coordinates  of  the  gener- 


The  statements 


10  X1»RAN  l-lt 
XjaRAN, 

XlS«Xl«*2 

X2S«X2««2 

T»XiS*X2S 

IP(T.0e*1*)00T0  10 


are  used  to  call  function  RAN  to  generate  random  numbers  XI  and  X2  and  to  com¬ 
pute  the  sum  of  the  squares.  A  test  is  made  to  determine  if  Xl2  +  X22  <  i  q 
If  nor,  the  statements  are  repeated  until  the  expression  is  satisfied. 

The  statements 


C 

C9  COMPUTE  the  sine  and  COSINE  OF  A  RANDOM  ANOUE  PHI 
C 

CSPHI*(X15*x2S)/T 

SnPHIb<2<*Xi*XZ>/T 


are  used  to  compute  the  cosine  of  random  angle  $  from  the  expression 


COS 


Xl^  -  X2^ 
Xl^  +  X2^ 


and  to  compute  the  sine  of 


random  angle  ^  from  the  expression 
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.  ,  2.0  -xi  -xa 

sin  = - 5 - Y~ 

XI  +  X2 


The  statements 


Xl*RAN  t-1) 


are  used  to  call  Function  RAN  to  compute  a  random  number  between  zero  and  one 
and  to  set  sin  4  negative  If  the  random  number  was  less  than  or  equal  to  0.5. 

The  statements 


COMPUTK  THe  SINE  *ND  COSJNE  Of  A  RANDOM  ANSLE  TH£TA 

c 

CSTHT*?.«R*N 

5nTmT«3QRT(1,-C5TmT**2I 


are  used  to  call  Function  RAN  to  compute  a  random  number  between  zero  and  one 
double  it,  and  subtract  one  to  arrive  at  the  cosine  of  random  angle  6.  The 
sine  of  e  is  computed  from  the  expression 


sin  0  =  V 1  -  (cos  6)^ 


The  statements 


§4  COMPUTE  random  OlflCCHON  COSINES 

^  WP(U»SNTHT«SNPMI 

wPlj) •SnTHT«CSPhI 
WP(3>«CSTHT 

return 


are  used  to  compute  the  x,  y,  and  z  coordinates  of  the  random  direction  cosines 
and  store  them  in  three-element  array  WP  via  the  following  expressions: 

WP(1)  ^  sin  6  *  sin 
WPC2)  =  sin  9  ^  cos  ^ 

WP(3)  =  cos  6 

the  prograiQ  returns  to  the  calling  program  with  WP, 
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Function  S(I,N) 

Function  S  is  called  by  Subroutines  RPPIN,  RPP2,  and  RPP  for  the  purpose 
^^®trieving  the  coordinate  of  any  one  of  the  six  sides  of  a  rectangular 
parallelepiped  (RPP).  Given  argument  I,  the  ordinal  number  of  the  RPP,  and 
argument  N,  the  side  number  of  the  RPP  where  N=l,  2,  3,  4,  5,  or6  (Xmin, 
Xmax,  Yroin,  Ymax,  Zmin,  or  Zmax  respectively),  the  routine  will  compute  the 
location  in  the  ASTER  array  of  the  required  coordinate  and  return  with  the 
value  of  the  coordinate  set  equal  to  S. 

The  statements 


dimension  master <joooo» 
common  ASTER<10000> 

COMMON/OEOM/LBA$CtftINtROUT*LRltUROtPlNf tIERR«Ol$T 
EOUIVALENCE (MASTER* ASTER) 


are  used  to  dimension  the  MASTER  array  for  30,000  words,  to  make  the  data  in 
the  ASTER  array  available  to  this  routine,  to  pass  the  value  of  pointer  LBASE 
into  this  routine,  and  to  set  the  MASTER  array  equivalent  to  the  ASTER  array. 

The  statements 


C. 

Cl  s  retrieves  coordinate  or  any  one  or  the  6  sioes  or  an  rrr 
C  I  IS  The  rrp  number  n  is  The  sureacc  number 

c 

L«L8ASC*12«(I.l)*2«(N.n 

LL«MA5TER(L*II 

S«ASTER(LL) 

return 


are  used  to  compute  the  location  of  the  pointer  data  for  the  given  side  of  the 
given  RPP  and  to  retrieve  the  pointer  from  the  next  word  since  that  is  the  loca¬ 
tion  of  the  pointer  to  the  coordinate  for  the  given  side.  Using  this  pointer, 
the  coordinate  is  retrieved  from  the  ASTER  array  and  equated  to  S.  The  routine 
returns  to  the  calling  program. 
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Subroutine  RF?2asURF,XP, IRP) 

Subroutine  RPP2  is  called  by  Subroutine  G1  whenever  an  exit  intersect 
occurs  with  a  surface  of  the  EPP  containing  the  target  geometry-  The  purpose 
of  the  subroutine  is  to  determine  the  number  of  the  RPP  (if  any)  that  the  ray 
is  entering  upon  leaving  the  present  RPP-  If  no  abutting  RPP  can  be  founds 
the  routine  returns  a  Eero  as  the  number  of  the  abutting  RPP* 

The  statement 


Si  riMO  NUMBER  OF  ABUTTING  RPR  TO  INTeHSECTEO  SURFACE 
C 

OIHENStON  XPOl 


is  used  to  dimension  a  three-element  array  to  contain  the  coordinates  of  the 
exit  intersect  point  of  the  present  RPP. 

The  statements 


COMMON  ASTER  ( lOOrtfj  ) 

C0MH0N/f»ARCM/XB(3l  iWe  tlf  UR  ^  ^ 

rOMMON/BCOM/t0A5EfftlN*ROUTttflI*UftO*PlNrf ICRRtolST 

COMMON/UNCQC«/MRPPiNTR!PtNSCAtiNBOOVfNRMAJtttTRlPfLSC*LaRE0Of 
1  LDAT*fURll^rLPOTfttO^LOcO**lli*l30»U@OoTiNASc»KLOOP 


are  used  to  make  the  contents  of  the  ASTER  array  available  to  this  routine  and 
to  pass  the  RPP  number  and  the  beginning  location  of  the  RPP  data  into  this 
routine. 

The  statements 


C 

CQC«L0aSE^12«  tNA5C-l ) *2* (LSURf# 1 ) 

CALL  UN2tL0C«L0CATfNC) 

are  used  to  compute  the  location  of  the  pointer  data  for  the  surface  number  of 
the  RPP  that  the  ray  is  exiting;  and  to  unpack  the  number  of  abutting  RPP's  to 
that  surface  and  the  pointer  to  the  location  in  the  MASTER  array  of  the  list  of 
abutting  RPP’s* 

The  statements 

XfiHC*V  10*20*30 
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10 

RCrURN 


are  used  to  determine  If  there  are  no  abutting  RPP's,  only  one  abutting  RPP 
or  more  than  one  abutting  RPP  to  the  intersected  surface  of  the  RPP.  If  there 

are  no  abutting  RPP's,  argument  IRP  is  set  to  zero,  and  control  is  returned  to 
Subroutine  Gl. 

The  statements 


20  CALL  UN2(L0CAr»IfiP*0UM) 
RCrURN 


are  executed  if  there  is  only  one  abutting  RPP  to  the  intersected  surface. 
These  statements  therefore  unpack  the  abutting  RPP  from  its  location  in  the 
a  utting  RPP  section  and  return  control  to  Subroutine  Gl  with  argument  IRP  set 
to  the  number  of  the  abutting  RPP. 

The  statement 


30 


is  executed  if  there  is  more  than  one  abutting  RPP  to  the  intersected  surface, 
ariable  M  is  set  to  one  and  is  subsequently  used  to  determine  which  of  two 
abutting  RPP  s  in  a  packed  word  is  to  be  tested. 

The  statements 


00  90  I.1*NC 

M**M 


are  used  to  begin  a  DO  loop  which  will  test  each  abutting  RPP  to  the  inter¬ 
sected  surface  to  determine  which  abutting  RPP  the  ray  is  entering.  Variable 
M  IS  set  to  a  negative  one  whenever  DO  loop  index  I  is  odd;  M  is  set  to  a  posi¬ 
tive  one  when  index  I  is  even.  For  negative  M,  the  left  abutting  RPP  in  the 
packed  word  is  tested.  For  positive  M,  the  right  abutting  RPP  in  the  packed 
word  is  tested. 


The  statement 


ir (H.OT*0)OOTO  50 
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is  used  to  test  variable  M  to  determine  which  RPP  in  the  packed  abutting  RPP 
word  is  to  be  tested* 

The  statements 


C*U  UMz<L.0CATiIltl2> 
LOC*T"LOCAT*1 

IBP-n 

80T0  To 


executed  if  M  is  negative,  are  used  to  retrieve  the  next  packed  abutting  RPP 
word.  The  left  abutting  RPP  in  the  packed  word  is  equated  to  argument  IRP, 
and  the  program  branches  to  determine  if  the  RPP  is  an  abutting  RPP.  LOCAT  is 
indexed  to  the  next  abutting  RPP  word  for  unpacking  when  needed. 

The  statement 


50  |RP*12 


executed  when  M  is  positive,  is  used  to  set  the  right  abutting  RPP  in  the 
packed  word  equal  to  argument  IRP  for  subsequent  testing. 

The  statement 

70  LS«J  1*1. SURF >/Z 


is  used  to  compute  a  control  variable  based  on  the  intersected  surface  number 
in  order  to  insure  that  identically  numbered  sides  of  the  intersected  RPP  and 
the  potential  abutting  RPP  are  never  compared  since  these  boundaries  would 
never  be  together. 

The  statements 


00  80  J»l»3 

iP(j«e(}.LS)9oro  «o 

If  ( <StlRP*2*J*ll-XPIJ)  }*UPtJ)  -S(lHPtZ*J}  >  .LT.O»>OOTO  9u 

80  CONTINUE 
Return 
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consist  of  a  DO  loop  which  is  used  to  determine  if  the  intersect  occurs  within 
the  boundaries  of  the  potential  abutting  RPP  by  evaluating,  assuming  an  inter¬ 
sect  on  an  X  plane , 

Ymin  <  Y^.  c  Ymax 
Zmin  <  Zc  <  Zmax 

where  Yc  and  Zc  are  the  y-z  coordinates  of  the  intersect  and  Ymin,  Ymax,  Zmin, 
and  Zmax  are  the  bounding  plane  coordinates  of  the  potential  abutting  RPP. 

The  statements 

90  CONTINUK 
I«P*0 
RSTURN 
€^D 
C 
C 


are  used  to  continue  to  the  next  potential  abutting  RPP  if  the  intersect  did 
not  occur  within  the  boundaries  of  the  present  potential  RPP.  If  the  intersect 
occurs  on  the  face  of  an  RPP  that  has  no  abutting  RPP,  IRP  is  set  to  zero,  and 
control  is  returned  to  Subroutine  Gl. 
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Subroutine  VOLUM 


Subroutine  VOLUM  Is  called  by  the  MAIN  program  If  the  option  variable 
for  calling  this  subroutine  Is  set  to  one.  The  purpose  of  this  routine  Is 
to  compute  the  volumes  of  each  region  within  a  given  Imaginary  box,  where 
the  box  Is  defined  as  In  Figure  73. 


XT  upper  right  corner  of  box  front 
lower  left  corner  of  box  front 
XA  lower  right  corner  of  box  end 
DT  vertical  dimension  of  cell 
DOD  horizontal  dimension  of  cell 
XVDIS  distance  from  front  to  back  of  box 

FIG.  73.  Volume  Geometry 

Rays  are  traced  from  the  lower  right  corner  of  each  cell  from  the  front  to 
the  back  of  the  box  and  the  distances  through  each  region  are  stored  in  an 
array.  When  all  rays  have  been  traced  and  the  total  distance  through  each 
region  accumulated,  the  volumes  are  computed  from  the  region  distances  and 
the  cell  dimensions. 
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The  statement 


C. 

Cl 

c 


COHPUTC  VOLUMES  8Y  RE810N  IN  VOLUME  OEPINEO  BY  BOX 


OIMCNSiON  VASTERtlOOO)  .NABO)  *WTB(3)  «NOB<Jl  tDfPO) 
I  XVl3»<XTt3)tXAl3UX0i3)«XP(3)iATeMp(3) 


t 


is  used  to  dimension  arrays  for  use  by  this  subroutine. 


The  statements 


common  ASTFBdOOOOt 

COMMON/PaHEM/XB  O ) f  WB 1 3  > ( 1 P 

COMMON/0EOM/LBASE.RIN«fiOUT.LPl.L«O.PlNf .URR»OlST 
C0MM0yUNC9eM/NRPp,NTRIP.NSCAL*NB00V*NRMAX,LTBIP;LlCAL»LRE80t 

1  t-OATA*LRlN»LROT*LIOiLOcOA* Il5«I|0*LBODYtNASc*KLOOP 
COMMON/WALT/LlRFO.NfllERR 


are  used  to  pass  information  into  and  out  of  this  subroutine. 
The  statements 


901  FORMATOCEO.B) 

902  fORMAT(2EZ0«8» 

903  ^0«MAT(lHo.loX.iMVERTEX.i4Xt6HTOP,PT,i4X.oMBOT.PT,iAX,TMSIt>e.PT> 

904  format <4C20. 81 

905  FOMMATtlHoi  8X»uhOELTA  ON  T0P»EZ0« B«  1 0** lOMSlOE  OCLTAtEzotH) 

906  format (f I ICI 

908  FORMATUHOf  ZXt  i  shSTaRTINO  RESIGN  iSd;) 

909  format tiM0tl6MVASTER  0VERWRITE*5X»6MNRMAX«. IS) 

91}  FORMAT(HO»E20,8> 

911  FORMATliHOtaMBAO  CARO/I  1 0 *E20 .8»UH  NOT  PROcESUOt 

912  format (110*E20*e*5X«C20.8»SXtE9»21 

913  format UH0«5HSUMV«*SX*e20>8> 


^te  used  to  format  data  for  input  and  output. 
The  statements 


C 

READ  19*906) IRtNOlERR 

IF(NOiERR*LE«0}NQiCRRM2S 


are  used  to  enter  the  region  number  of  starting  point  XV  and  to  enter  the 
allowable  number  of  Subroutine  G1  errors.  If  the  number  of  allowable 
errors  entered  is  less  than  or  equal  to  zero,  the  allowable  errors  In 
Subroutine  G1  are  set  to  25, 
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The  statements 


CNTCR  COORDINATES  Of  BOX 
C 

READ  (5*901MXV(1),I»1,3) 

READ  <9*9oi) (XT(l)*I*lt3) 

READ  <9f90l) (XO(l)*I«ltS) 

READ  (9*901MXa<II 

ly  ENTER  CELL  SIZE 
C 

READ  (9f902)OOO«OT 
NRITE  (6*9o3) 

WRITE  (6t90A)  UV(J»*XTJJ>tXO(J)*XAU)tJ«l*3» 
WRITE  (A«905>000*oT 
WRITE  (6*908) IR 


are  used  to  enter  and  print  out  the  coordinates  of  the  four  corners  that 
define  the  box;  to  enter  and  print  out  the  cell  dimensions;  and  to  print 
out  the  starting  region  number. 

The  statement 

IE (NRMaX.QT. 2000) WRITE  (6*909) NRHaX 


is  used  to  determine  if  the  number  of  regions  used  to  describe  the  target 
geometry  is  excessive  relative  to  the  array  size  used  in  this  subroutine. 
If  it  is,  an  error  message  with  the  number  of  regions  is  printed  out. 

The  statements 


CALL  0C0SP(XV*XT*WT8-) 
CALL  DC0SR(XV*XO»WOb) 

call  dco*^<*v»xa*wab) 


are  used  to  compute  the  direction  cosines  of  the  vectors  from  the  vertex 
point  to  each  of  the  three  other  points  of  the  box. 
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The  statement 

XV01Sax0IST(XVtXAt 

is  used  to  compute  the  length  of  the  box  from  front  to  back  by  the  use 
of  Function  XDIST. 

The  statements 


TeSTONaQ* 
TE$TOV«0« 
XTEmPCi >so. 

10  l*l*NftMAX 

VASTeR(I)«o. 
lb  continue 


are  used  to  zero  subroutine  variables  and  the  array  for  storing  the  dis¬ 
tances  through  the  regions. 

The  statements 


JlRslR 

IRJ«1R 


are  used  to  save  the  starting  region  number  for  later  use  in  the  subroutine. 
The  statements 


C 

C«  COMPUTE  number  or  horizontal  and  vertical  cells 
c 

N2MXOIST<XVtXO)/DOO*l. 

N1*XoIST(XV#XT)/OT^I» 


are  used  to  compute  the  number  of  horizontal  and  vertical  cells  from  the 
dimensions  of  the  cell  and  the  size  of  the  front  plane  of  the  box. 
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The  statement 


trace  Hats  from  lower  riont  corner  of  each  cell 

c 

00  300  J«l*N2 

is  used  to  begin  a  DO  loop  which  will  trace  a  ray  from  the  lower  right 
corner  of  each  cell  to  the  end  of  the  box,  accumulating  distances  that 
the  rays  travel  through  each  region.  This  DO  statement  indexes  columns 
of  cells  on  the  face  of  the  box. 

The  statements 


DO  100  t*lt3 
0SP(It«WTBlI)*0T 
XsdlMXVlI) 
we(I}aWA8(I> 

100  continue 


consist  of  a  DO  loop  which  is  used  to  compute  the  vector  from  the  present 
origin  to  the  next  origin  in  the  current  column  from  where  the  next  ray 
is  to  be  traced.  The  coordinates  of  the  origin  and  the  direction  cosines 
of  the  current  ray  are  then  assigned. 

The  statements 


Sl"0« 

tft*JIR 


are  used  to  initialize  variable  SI,  the  distance  to  the  next  region,  and 
to  initialize  to  the  region  number  of  the  origin  of  the  current  ray. 

The  statements 


Ca  trace  all  rays  from  column  of  cells 

c 

DO  200  iMltNl 
NASC—i 

are  used  to  begin  a  DO  loop  for  tracing  each  ray  from  each  cell  in  the 
present  column  of  cells.  For  each  new  ray,  NASC  is  set  to  a  —1  to  indi¬ 
cate  to  Subroutine  Gi  that  a  new  ray  is  Co  be  traced. 
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The  statements 


C 

Ct  TRACC  ray  ThROUOH  box  via  subroutine  01 

c 

110  CALU  Oi<SltIRPRlM,XP} 

irilERR.QE.NOlCRRIOOTO  AOO 
Vaster  « ir)«vaster  t ir) *si 
IF<OIST.Oe.XVDIS}OOTO  115 
lP(IRPRIM.|.E*0>OOrO  120 
IR«IRPRIm 
OOTO  lio 


are  used  to  call  Subroutine  G1  to  trace  the  given  ray  to  the  end  of  the  dox. 
^^broutine  G1  returns  when  a  new  region  has  been  encountered  and  the 
number  of  errors  that  occurred  in  Subroutine  G1  is  compared  to  the  allow¬ 
able  limit.  If  the  allowable  number  of  errors  was  exceeded,  the  program 
is  terminated.  If  the  allowable  error  limit  was  not  exceeded,  the  distance 
through  the  given  region  is  added  to  the  previous  distance  that  the  ray(s) 
has  travelled  through  the  region.  A  test  is  made  to  determine  if  the  new 
region  was  encountered  beyond  the  end  of  the  box.  If  so,  the  routine 
branches  to  subtract  that  distance  beyond  the  end  of  the  box,  A  test  is 
made  to  determine  if  the  new  region  is  an  RPP  boundary;  if  so,  the  ray  is 
terminated.  If  the  new  region  was  encountered  before  the  end  of  the  box, 
the  present  region  is  updated  to  the  new  region,  and  the  program  branches 
to  call  Subroutine  G1  again  to  continue  the  ray. 

The  statement 


115  vaster ( IRI nVASTEP  t 1R) ■ (015T-XVDl*t 


which  is  executed  when  che  new  region  encountered  lies  beyond  the  end  of 
the  box,  is  used  to  subtract  that  portion  of  the  distance  beyond  the  end 
of  the  box. 

The  statements 


120  XTENPIi)«WBtl> 
XTEMP(2)aHB(2) 
XTEMPl3)>WB(l) 
IR-JIR 


are  used  to  save  the  ray  direction  cosines  and  to  Initialize  to  the  start¬ 
ing  region  number  of  the  present  ray. 
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The  statements 

TeSTDN»TCSTON-OT 
ir (TeST0N,OT.ft.»8OTO  leo 


are  used  to  determine  if  the  origin  of  the  next  ray  in  the  current  column 
is  in  the  same  region  as  the  origin  of  the  ray  just  completed. 


The  statements 


we(:f)«wTB(3) 


are  used  to  assign  direction  cosines  of  the  vector  from  point 

and  to  initialize  for  a  new  ray  to  determine  the  region  number  of  the  next 

origin. 


The  statements 


Cn  DETCRNINE  REOtON  of  ORIGIN  OF  Rfct  IN  COI.UHN 

^  CALL  Q1(SI,IRPR1M,KP1 

IF {IERR»OttN8ltRRt®0TO  400 
IF  (Sl«0T»  130»1®Om70 


are  used  to  call  Subroutine  G1  to  find  the  distance  to  the  next  region  rn 
the  direction  of  the  next  origin.  If  an  excessive  number  of  errors  did 
not  occur  in  Subroutine  Gl,  the  distance  to  the  next  region  is  compared 
with  the  distance  to  the  next  origin. 


The  statements 


130  IR-IRPRIM 
JIR.IR 

CALL  8i(Si#IRPRIM»*P> 
IFIIERRtflC.N0l€RR)00TO  400 
If tDIST-OT)X40*140*lie 
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are  executed  if  the  distance  to  the  next  origin  is  greater  than  the  distance 
to  the  next  region.  These  statements  update  to  the  new  region  number  and 
save  it  in  case  the  next  origin  is  in  that  region.  If  an  excessive  number 
^^rors  did  not  occur  in  Subroutine  Gl,  the  distance  to  the  next  region 
is  compared  with  the  distance  to  the  next  origin  to  determine  if  the 
origin  is  in  the  new  region  returned  by  Subroutine  Gl. 

The  statements 


U9  I^CtRPRIMlisOtllOtlJO 
199  STOP 


are  executed  if  the  distance  to  the  next  origin  is  again  greater  than  the 
distance  to  the  next  region.  If  this  next  region  number  is  negative,  the 
program  stops  because  this  is  an  error.  If  the  region  number  is  zero, 
the  RPP  enclosing  the  target  geometry  has  been  intersected  and  the  pro¬ 
gram  branches  to  index  to  the  next  column  of  cells.  If  the  region  number 
is  positive,  the  program  branches  to  find  the  next  region  where  the  origin 
could  be  located. 

The  statements 


160  IP-IRPPIM 


are  executed  if  the  next  origin  and  a  new  region  occur  simultaneously. 
These  statements  update  to  the  new  region  and  store  it  in  a  save  area 
for  later  use. 

The  statement 


ITO  TCSTON^Si 


which  is  executed  if  the  distance  to  the  next  region  is  greater  than  the 
distance  to  the  next  origin,  is  used  in  the  program  to  determine  if 
succeeding  ray  origins  are  in  the  same  region. 
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The  statements 


C, 

CIO 


SHIFT  QHI81N  OF  BAY  TO  NtFT  CELi  IN  COLUMN 


ISO  DO  190  Jlalt3 

HgljD-HTCMPUU 

xetJI>«X6IJl>*DSF(Jlt 

190  continue 

ZOO  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  compute  the  coordinates  of  the  origin 
of  the  next  ray  and  to  restore  the  original  direction  cosines  of  the  ray. 
The  program  then  loops  to  trace  the  next  ray. 

The  statement 


Cll  ONE  COLUMN  OF  CELL*  COMPLETE  -  SMIFt  TO  NEXT  COLUMN 
C 

ZIO  NASCv-1 


is  used  to  set  NASC  to  a  -1  to  indicate  to  Subroutine  G1  that  a  new  ray  is 
to  be  traced.  This  statement  is  executed  when  all  of  the  rays  in  one 
column  have  been  traced,  and  the  rays  in  the  next  column  are  now  to  be 
traced . 

The  statements 


DO  ZZO  1*1*3 

X8<I>*XVtn 
Z20  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  assign  the  direction  cosines  and 
origin  of  a  ray  to  be  traced  from  the  first  origin  of  the  current  column 
to  the  first  origin  of  the  next  column. 
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The  statements 


JIRalftJ 

IB.JIR 

TeSTDN»o. 
TeSTOVwTESTOV-OOO 
IF (TfST0V> 230*230 *280 


are  used  to  initialize  to  the  region  number  of  the  first  origin  of  the 
current  column.  TESTDN  is  initialized  to  zero  for  later  use  in  determining 
the  regions  of  the  origins  of  the  next  column.  The  distance  to  the  next 
region  in  the  direction  of  the  first  origin  of  the  next  column  is  computed 
to  determine  if  the  first  origin  of  the  next  column  is  in  the  same  region 
as  the  first  origin  of  the  current  column. 

The  statements 


C. 

Cl2  OtiCRMINC  RCaiON  OF  FIRST  ORlOlN  OF  NEXT  COLUMN 

c 

230  CALL  01 (S1*IRPRIM,XF) 

IF(IERRi0E.N01ERR)00T0  AOO 
IP (Si*000l 2*0*280 *270 


are  executed  if  the  region  number  of  the  first  origin  of  the  next  column 
is  not  known.  These  statements  are  used  to  compute  the  distance  to  the 
next  region  in  the  direction  of  the  first  origin  of  the  next  column  by 
calling  Subroutine  Gl.  This  distance  is  compared  with  the  distance 
between  the  columns  after  checking  for  more-than-allowable  errors. 

The  statements 


240  IR-IRPRIN 
IRJ«!fi 

CALL  01(S1.1RPRIM,XP) 
XF(IERR*QE*N01ERR)OOTO  400 
IF (OIST-OOO) 250*260*270 


are  executed  if  the  distance  to  the  first  origin  of  the  next  column  is 
greater  than  the  distance  to  the  next  region.  These  statements  update 
to  the  new  region  number  and  save  it  in  case  the  origin  is  in  this  region. 
Subroutine  Gl  is  again  called  to  determine  the  distance  to  the  following 
region;  Subroutine  Gl  compares  the  total  distance  with  the  distance  to 
the  origin,  after  checking  for  more-than-allowable  errors. 
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The  statements 


?50  If ( IRPRlM' 265»*00*230 
255  STOP 


are  executed  if  the  distance  to  the  first  origin  of  the  next  column  is  again 
greater  than  the  distance  to  the  next  region.  If  this  next  region  number 
is  negative,  the  program  stops  since  this  is  an  error.  If  the  reg  on  num  er 
is  zero,  the  RPP  enclosing  the  target  geometry  has  been  intersected,  an 
the  program  branches  to  index  to  the  next  column.  If  the  region  number  is 
positive,  the  program  branches  to  find  another  region  where  the  next  or  gin 
could  be  located. 


The  statements 


260 


are  executed  if  the  first  origin  of  the  next  column  and  an  intersect  with 
a  new  region  occur  simultaneously.  These  statements  update  to  the  new 
region  and  save  it  for  later  use. 

The  statement 


270  T€ST0V«5l 


which  is  executed  if  the  distance  to  the  next  region  is  greater  than  the 
distance  to  the  next  origin,  is  used  in  the  program  to  determine  if  suc¬ 
ceeding  ray  origins  are  in  the  same  region  as  previous  ray  origins. 

The  statements 


SHifT  OPIOIN  Of  NEXT  TO  flPST  OPlOlN  Of  NC^T  cOUUMN  Of  CCLLS 

C 

200  00  290  I"l*3 

XA(t).X*in«W0B(I)*000 
XV»n«XV(I).WOB(l)«00D 
XT«I>»XT(I).f08Cl»*00D 
290  CONTINUE 


consist  of  a  DO  loop  which  is  used  to  shift  the  vertex,  top  point  and  the 
box  end  point  to  the  next  column  of  cells. 
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The  statements 

VIRtilf) 

300  CONTINUE 


are  used  to  save  the  region  number  of  the  first  origin  of  the  new  column 
and  to  branch  to  trace  the  rays  of  the  new  column. 

The  statements 


ALL  ray  distances  TMBOUflM  EACH  HEfllON  jn  aoX  ACCUMULATED 

c 

♦00  READ  (5.910»1R1,VR 

lEllERR.aE.NOlERRlOOro  SoO 
IE<IRj.LE*0> lRl«NRHAX4i 
SUMV«o. 


are  executed  when  all  rays  have  been  traced;  when  more  than  the  allowable 
limit  of  errors  occurred  in  Subroutine  Gl;  or  when  the  front  plane  of  the 
OX  intersects  an  RPP  boundary*  These  statements  are  used  to  enter  a 
region  number  and  its  p re- computed  volume.  The  Subroutine  Gl  error 
counter  is  compared  with  the  allowable  limit  of  errors;  if  more  than  the 
allowable  limit  of  errors  occurred,  the  program  branches  to  return  control 
to  the  MAIN  program.  If  less  than  the  number  of  allowable  errors  occurred 
in  Subroutine  Gl,  and  no  region  number  was  entered,  the  region  number  Is 
equated  to  one  greater  than  the  number  of  regions  in  the  target  geometry, 
SUMV,  the  variable  for  summing  the  total  volume  of  all  regions  within  the 
box.  Is  also  set  to  zero. 

The  statement 


C 

Cl  5  COMPUTE  VOLUHC  OP  EACH  RESION  IN  BOA 
C 

00  ASO  1«1.NRNAA 


is  used  to  begin  a  DO  loop  which  will  compute  and  print  out  the  volume 
of  each  region  encountered  within  the  volume  of  the  box  and  to  compute 
the  percent  error  with  the  pre-computed  volumes  if  the  pre-computed 
volume  was  entered. 
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The  statement 

V*STER 1 1 ) •VASTER  1 1 ) *0OD»0T 

is  used  to  compute  the  volume  of  each  region  within  the  volume  of  the  box 
The  statement 

ir tlolRl) 41 01430 *4Z0 


is  used  to  determine  if  the  current  region  of  the  DO  loop  has  a  pre¬ 
computed  volume  entered  for  computing  percent  error. 

The  statements 

410  WRITE  (6*9iO)I*VASTER<I> 
flOTO  440 

are  used  to  write  out  the  region  number  and  the  computed  volume  of  the 
region  if  the  entered  region  number  is  greater  than  the  current  region 
number  of  the  DO  loop. 

The  statements 


420  WRITE  (ftf9ll)IRl»VR 
READ  tS»910>lRl»VP 
goto  410 


are  executed  if  the  region  number  of  the  DO  loop  is  greater  than  the  last 
region  number  entered.  These  statements  are  used  to  print  out  the  entered 
region  number  and  pre-computed  volume  and  to  enter  the  next  card  with 
region  number  and  pre-computed  volume. 

The  statements 


c 

C 

43a 


COMPUTE  PERCENT  ERROR  FOR  PRE-COMPu!E0  VOUUHE  OF  al«N  REGION 

XPERC«100t*(VASTER(I)/VR>l*I 
WRITE  (6*9UH*WASTEf»Il>*VR»*PE<*C 
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VtSTER(I)«VR 
REAO  <$«910>IRt*VR 


are  executed  when  the  entered  region  Is  equal  to  the  region  number  of  the 
DO  loop.  These  statements  are  used  to  compute  the  percent  error  between 
the  computed  volume  and  the  pre-computed  volume  of  the  current  region. 

The  region  number,  computed  volume,  pre— computed  volume,  and  percent  error 
are  printed,  and  the  next  region  number  with  pre-computed  volume  is 
entered. 

The  statements 


C 

5lT  COMPUTE  total  VOLUME  OF  ALL  RtOIONS  MlTMIN  SOX 
C 

AAO  SUMVbSUMV*VA$TEP(1> 

490  CONTtKUE 


are  used  to  accumulate  the  total  volume  of  the  regions  considered  and  to 
transfer  to  consider  the  next  region. 

The  statements 


write  U»9i3>SUMV 
Sqo  ICRR«d 
return 
end 
c 
c 

are  used  to  print  out  the  total  of  the  volume  of  all  of  the  regions 
encountered  within  the  box.  The  Subroutine  G1  error  counter  is  set  to 
zero,  and  this  subroutine  returns  control  to  the  MAIN  program. 
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Subroutine  AREA 

Subroutine  AREA  is  called  by  the  MAIN  program  if  the  option  variable  for 
calling  this  subroutine  is  set  to  one.  The  purpose  of  this  subroutine  is  to 
compute  the  presented  area  of  an  object  or  target  as  viewed  from  any  azimuth 
and  elevation  angle. 

The  statement 

OIMCNSION  XPtsI *WP<3) »XBS(3l tcOhVRT <414! tTVPcUN{4) 

is  used  to  dimension  arrays  for  use  in  this  subroutine. 

Tlie  statements 


common  ftSTEBtlOOOOt 

C0Mm0N/PaRCM/KB(3I  ttB 

COmMON/OEOM/L0ASC.«IN»ROUT  tl.«l  .LREQOt 

COMMON/UNCGEM/NRPP.NTRlP.NSCAL*NBOOt.NHMfcK.LTHlP.LSCAL.l.REOD. 

1  L0ATA*LRlN»LROT.Ll0»LOC0*»llS»l30»L800lf*NA*C»RJ*OO^ 

'eOMM0N/CAL/NlR»5L0SiAN0LE»MTTfRt**»^*ettL»XS»3> •RS(3l t 


1  TRAVet.»SN*V*Hf  IVIK 
C0MM0N/W4LT/L1RF0«N01ER* 

common/cell/celsiz 

C0MM0N/EN6E0M/1.E0E0M 


are  used  to  pass  Information  into  and  out  of  this  subroutine. 
The  statements 


9oi  FORMAT«7110*6X*ZA2» 

9ol  FoSatViMoUzHMEMORY  OVERUAP  in  AREA»9**7MLE0t0M"»lGt 
1  5X»4MLARCA»»l6ii**«HLlRF0».l6> 

909  F.'HMAT(lM0fl3MERR0R  IN  ARCAi5X**HlCpOE  •  O) 

010  Format UH0»BHAZlMyTH»*Fl0*3»5**l0NEl.EVATl0N««FJ0!3) 

911  format (iHOtlZHCEtL  SIZE  IS»F**1*1X» IMXiFA.ltlXt AE#lM.»10X« 

t  IZHaREaS  in  Sa>tlXtAZ«lM*) 

9 1 2  format  1 1 ho • 9HI CODE • 1 9* • aREA/ I 

913  format ClSilSK*FlZ,S) 

^  L.4A  A  *  »  ^  LI ' 


913  roMMAi  I  •»'  . 

014  format HHo.ISMPRESENTeO  AREA"*F1».5' 
91B  format (lHo»l8HNUM8eH  OF  CELLS  iSjl** 
iPMNUMBER  OF  CELLS  MlT  IS*l9) 


10** 


are  used  to  format  data  for  input  and  output  and  to  format  output  messages. 
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The  statements 


C 

D*TA  HHlNtHHrT*HHCHiHHMBtHHBB/2HlNt2HrTt2HCHf2HM  ,2H  i 

TypeuN(i)»MMrN 

TYPeUNl2)«MHfT 

TYPCUN(3>»HMCM 

TVPEUNUt»HHHe 


are  used  to  enter  Hollerith  constants  data.  These  constants,  which  are  codes 
for  inches,  feet,  centimeters,  and  meters,  are  equated  to  the  four  elements 
of  array  TYPEUN. 

The  statements 


CONVRT(lil) 
C0NVRT(1.2) 
CONVRTHtll 
eONVRT 11*4} 
C0NVRT(2«1) 
CftNVRT(z»2) 
C0NVRT(2f3t 
COMVRTtZ**) 
C0NVRT{3»j» 
C0NVRT{3»2) 
CONVRT(3i3» 
C0NVRT(3.*) 
C0NVRT(4.U 
C0NVRT(4t2» 
C0NVflT{4f3) 
C0NVRr(4«4t 


•1. 

0069444*4444444 

■6.451625806 

■*0006451625806 

*144. 

■1* 

■529,0341161 

■*09290341161 

•.15*99969 

■•001076386736 

•1* 

■•0001 

■1549*9969 

■10*7636736 

■10000* 

•  I* 


are  used  to  assign  constants  for  converting  the  area  from  one  unit  of  measure 
meot  to  another.  The  constants  for  array  CONVRT  are  used  for  converting  an 
area  as  follows: 


CONVRT (1,1) 
CONVRT (1,2) 
CONVRT (1,3) 
CONVRT (1,4) 
CONVRT (2,1) 
CONVRT (2, 2) 
CONVRT (2, 3) 
OONVRT(2,4) 
C0NVRT(3,1) 
CONVRT(3,2) 
C0NVRT(3,3) 
CONVRT (3, 4) 


square 

square 

square 

square 

square 

square 

square 

square 

square 

square 

square 

square 


inches  to  square  feet 

inches  to  square  centimeters 

inches  to  square  meters 

feet  to  square  inches 

feet  to  square  feet 

feet  to  square  centimeters 

feet  to  square  meters 

centimeters  to  square  Inches 

centimeters  to  square  feet 

centimeters  to  square  centimeters 

centimeters  to  square  meters 
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C0NVRT(4,1) 

C0NVRT(4,2) 

CONVRT(4,3) 

CONVRT(4,4) 


square  meters 
square  meters 
square  meters 
square  meters 


to  square  inches 
to  square  feet 
to  square  centimeters 
to  square  meters 


The  statement 


BLANK«HH6e 


is  used  to  equate  two  Hollerith  blanks  to  variable  BLANK  for  determining  if 
there  are  blanks  in  card  input  fields. 

The  statements 


COMPUTE  AND  INITIALIZE  A«EA  FOR  SToRlNO  PRESEnTEO  AREA 

ay  component  code 

LAREAaLlRFO.HOO 
KFaAREA*llE«LEOEOM>QOTa  10 


are  used  to  compute  a  starting  location  in  the  ASTER  array  for  storing  the 
presented  area  of  the  target  by  component  code  (1-999)  .  The  location  is  com* 
puted  to  be  1000  words  before  location  LIRFO,  the  storage  area  for  the 
identification  code  and  component  code  data.  A  test  is  made  to  verify  that 
this  new  storage  area  does  not  overlap  the  end  of  the  target  geometry  data- 

The  statements 


ii«R[TC  t6«9o8}LEQEOHiLAREAiLlRFQ 
STOP 


are  executed  if  the  new  storage  area  overlaps  the  end  of  the  target  geometry 
data  in  the  ASTER  array.  These  statements  cause  an  error  message  to  be  printed 
out  with  the  pertinent  subroutine  variables  and  to  terminate  the  program. 

The  statements 


IQ  LAREAULlRFO-1 

00  20  l*larca<l«reai 
ASTERtLi^Oi 
20  CONTINUE 


are  used  to  compute  the  last  word  of  the  array  for  storing  the  presented  area 
of  the  target  by  component  code  and  to  zero  the  entire  array  with  the  DO  loop. 
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The  statements 


C 

C9  RCAD  OftIO  INPUT  PaPAMCTERS 
C 

READ  (9«901tNX,NY,lR5TflT  •lCNC»NOURRtNSTART(N£NO,CELLUN,AReAUN 
READ  (5*«02>A«E*EnOTH«ZSH1FT*OROUNO 
Read  (9*902>XSHIPT*YSHlFTtceLSlZ 


are  used  to  enter  the  grid  Input  parameters. 
The  statements 


C 

cs  initialize  parameters  not  set  by  Input 
c 

lEdRSTPT  .LE.O)  IRSTRTel 
irCCELSiZ  .LE.0.)CELSIZM4« 
irCNSTART,LE.O»NSTART*i 

If  <NOieRR»LE»0**<OiERR»29 
ir ( areaun*eo*blank) areaun«hhin 

IP(CELLUN.EO«BUANK)cELLUNaNNlN 


are  used  to  determine  or  initialize  the  starting  region  number,  the  cell 
size,  the  cell  number  from  which  ray  tracing  is  to  begin,  the  limit  of 
allowable  errors  that  can  occur  in  Subroutine  Gl,  the  measurement  units 
for  expressing  the  area,  and  the  measurement  units  of  the  cell. 

The  statements 


Ca  DETERMINE  MEASUREMENT  UNITS  AND  COMPUTE  ORIO  CCLi.  AREA 
C 

00  30  Ial*4 

IP(CCLLUN.EQ*TYPEUN(I))00T0  40 

30  continue 

40  00  SO  jai»4 

IP(AREAUN.EQtTYPEUN(J) )00T0  4o 
^0  ARE A^aCELS I Z*CCLSl ZaCONVRT ( I • J) 


are  used  to  determine  the  measurement  units  of  the  cell  and  the  desired 
measurement  units  to  describe  the  area.  The  area  of  the  cell  is  computed 
and  converted  to  the  selected  measurement  units  (inches^,  feet^,  centimeters 
or  meters^) . 


2 


> 
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The  statements 


B^DIAN*. 01 74532925199*1 
kflB**RADlAN 
eRaE*ReDIAN 
SA«SlNtAR) 

CA-COSIAR) 

SE«SINteRI 

Ce^COSCER) 


are  used  to  compute  the  sine  and  cosine  of  the  azimuth  and  elevation  angles 
from  the  azimuth  and  elevation  angles  that  were  entered  in  degrees. 

The  statements 


K1.»N»»NV 

NHlT«o 

are  used  to  compute  the  number  of  cells  in  the  grid  plane  and  to  initialize 
the  number  of  hits  counter,  NHITS,  to  zero. 

The  statement 


PROCESS  RL  CELLS  IN  GRID  RL4NE 
C 

DO  200  KK«NSTART,KL 

is  used  to  begin  a  DO  loop  which  will  construct  a  grid  plane,  fire  a  ray 
from  each  cell  in  the  grid  plane,  and  compute  and  store  the  presented  area 
by  component  code  when  the  ray  Intersects  the  target . 

The  statements 


PR  1 1 ) a-CCPCA 
PB(2)"-CE«SA 
PH (3)**SE 


are  used  to  compute  the  direction  cosines  for  the  ray  normal  to  the  grid 
plane  and  directed  toward  the  target  geometry. 
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The  statements 


Ea  COHPUTC  row  ANO  column  number  Of  OR to  CELL 

c 

1IpHKM-1)/NX)*1 


are  used  to  compute  the  row  and  column  of  a  specific  grid  square  from  which 
the  ray  Is  to  be  fired  toward  the  target  geometry. 

The  statements 


CELL2P.5*CELS1Z 

V«fLOAT(  (NY/2)-tn*CELSIZ  •CEULZ 
V»EfPV*CELL2 

HPfLOATI (NX/2>-  JJPqELSlZ  ♦CELLg 
HREFpM^CELLz 


are  used  to  locate  the  lower  left  comer  of  the  grid  square.  V  represents 
the  vertical  distance  from  the  center  of  the  grid  plane  and  H  represents 
the  horizontal  distance.  VREF  and  HREF  refer  to  the  center  of  the  current 
grid  square. 

The  statements 


IW«RaN(-i»«jo, 

1HPRAN1-1)«10. 


are  used  to  compute  two  random  numbers  between  zero  and  nine. 
The  statements 


C. 

Ct  compute  random  point  within  brio  cell 

c 

VpV*CELSIZ  pfLOAT(IV)/10,*CELSIZ  /JO, 
hph^CELSIZ  •fLOAT{tHt/)0.«CELSIZ  /go* 


are  used  to  locate  one  random  point  out  of  a  possible  100  random  points 
within  the  current  grid  cell. 
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The  statements 


XBS  ( 1)  ■XSHIFT-V«C A*SE*M« A 
XeS (2» ■YSHirT-V*S*-SE*M«C* 
KBSt3>«lSHIFT*V«CC 

are  used  to  transform  the  point  within  the 
nate  system  of  the  target  and,  at  the  same 
plane  and  target  system  coordinate  origins 
variables  XSHIFT,  YSHIFT,  and  ZSHIFT. 


current  grid  cell  to  the  coordi— 
time,  to  effectively  move  the  grid 
to  a  new  location  specified  by  the 


The  statement 


call  tropic («p» 

is  used  to  call  Subroutine  TROPIC  which  generates  random  direction  cosines 
from  an  Isotropic  distribution. 

The  statements 


xBSii}«xestii*HPt}}«i.oe-4 

XBS12)«XBSI2)*WP12)*1*0C*4 

XB$O>«XBS(3t*HP<3l*1.0E»A 


are  used  to  move  the  point  within  the  current  grid  cell  by  a  very  small 
amount  in  a  random  direction. 


The  statements 


Cs  CONVERT  WIO  PLANE  COOflOINATES  TO  COoPOINATES  OF  TAMET 

XB ( X  > "XBS 1 1 1 •ENOTM.wB 1 1 > 

XB  I2»  MBS  (2)*ENOTH*«t0  (2) 

XBt3>*XB*l3t*£N0TM*WB<3l 


are  used  to  back  the  point  out  of  the  target  by  an  amount  ENGTH,  which  was 
entered  with  the  input  data.  The  ray  will  originate  from  this  point  and 
pass  through  the  position  of  the  point  before  it  was  moved  to  its  present 

position. 

The  statement 


IFtXBtsULC.OPOUNOlSOro  200 


is  used  to  determine  the  position  of  the  origin  of  the  ray.  If  the  origin 
occurs  below  ground  level,  the  ray  will  not  be  fired,  and  the  program 
branches  to  compute  the  origin  of  the  next  ray. 
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The  statements 


C 

C9  TRACE  RAY  TO  FIRST  TARSCT  COMPONENT  HIT 
C 

1R«IRSTRT 

NA5C»-i 

110  CALL  Ol (SitIRPRIM.XPl 

are  used  to  initialize  the  region  identifier  to  the  starting  region  of  the 
ray  and  to  initialize  the  variable  NASC  to  -1  to  indicate  to  Subroutine  G1 
that  a  new  ray  is  being  fired.  Subroutine  G1  is  called  to  move  the  point 
on  the  ray  to  the  next  region. 

The  statements 


IF (tCRRiOE.NOlERR) RETURN 

if(irprim,lt,o>ooto  Zoo 
IFtNASc.LE.NRPPHRPRlM*0 
IF(1RPRIM,cQ*OIOOTO  200 


are  used  to  determine  if  more  than  the  allowable  number  of  errors  occurred 
in  Subroutine  Gl.  If  not,  further  tests  are  made  to  determine  if  an  RPP 
boundary  has  been  intersected.  If  the  intersect  occurs  at  an  RPP  boundary, 
the  ray  has  missed  the  target  and  the  program  branches  to  process  the  next 
ray . 


The  statements 


LOC*LlRFO*IRPRlM.i 
CALL  UN2(LOC»ICOOEtlOCNT» 


are  used  to  locate  and  unpack  the  identification  code  and  the  component 
code  from  the  ASTER  array  for  the  region  returned  by  Subroutine  Gl. 

The  statements 


lOENT-IOENT-l 

IF<IDENT*(IOENT/io)»io,eQ,(j|80TO  iso 

IRaTRPRlM 

OOTO  no 


are  used  to  determine  if  the  material  of  the  intersected  region  is  part  of 
the  target.  If  not,  the  region  number  is  updated,  and  control  Is  returned 
to  again  call  Subroutine  Gl  to  return  the  next  region  encountered  along 
the  ray.  One  is  subtracted  from  variable  IDENT,  since  a  one  was  added 
before  IDENT  was  packed  to  prevent  packing  a  negative  number. 
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The  statements 


120  IF(tCODE.NC»0)30TO  130 
WHITE 
aOTO  200 


are  used  to  test  the  component  code  if  the  identification  code  test  revealed 
that  the  target  was  intersected.  If  the  component  code  is  zero,  an  error 
message  is  printed  out,  and  the  program  continues  to  process  the  next  ray. 


The  statements 


NHlT"NHtT*l 
290  CONTINUE 


are 


executed  if  both  the  identification  code  and  component  code  agree  that 
the  target  has  been  hit  by  the  current  ray.  These  statements  compute  a 
storage  location  in  the  ASTER  array  and  add  the  presented  area  of  the  target 
indexed  by  the  component  code  of  the  material  hit.  The  number  of  hits 
counter  is  incremented  by  one  for  the  current  ray,  and  the  program  branches 

to  process  the  next  ray. 


The  statements 


C 

CIO 

c 


PHINT  HESUlTS 

WHITE  {6.910)A,E  , 

WHITE  (6»9i 1 ICELSlZt 
WHITE  16*912) 


CELSU*  CELLUN**HEAUN 


are  executed  when  all  of  the  rays  of  the  grid  have  been  processed.  Jh^se 
statements  are  used  to  print  out  the  azimuth  and  elevation  of  the 

grid  plane,  the  dimensions  of  the  cells,  and  the  measurement  units  of  the 
cell  and  of  the  computed  areas.  Column  headings  for  printout  of  the  pre¬ 
sented  areas  by  component  codes  are  printed  out,  and  the  storage  location 
for  summing  all  of  the  presented  area  is  initialized  to  zero. 
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The  statements 


00  250  Iaii999 
L0C«LA0EA*I-1 

lF(ASTEfl(LOC>.EO.o*>OOTO  250 
MRITE  (6t9i3) I*ASTEP(L0C) 
SUMasSUMa**STCR(LOC> 

250  continue 


consist  of  a  DO  loop  which  is  used  to  index  each  of  the  elements  in  the 
array  for  storing  presented  areas  by  component  code  (1-999).  If  there 
is  no  presented  area  for  a  given  component  code,  the  loop  indexes  to  the 
next  component  code  location.  If  there  is  a  presented  area  for  a  given 
component  code,  the  component  code  and  its  presented  area  are  printed 
out.  The  presented  area  is  added  to  location  SUMA  to  obtain  a  total 
presented  area. 

The  statements 


NRITE  (6*9ia)SUMA 
write  (6«9ls)KL«NHir 
RETURN 
END 
C 
c 

are  executed  when  all  of  the  presented  areas  by  component  code  have  been 
printed  out  and  all  of  the  presented  areas  have  been  summed.  These  state¬ 
ments  print  out  the  total  presented  area,  the  number  of  rays,  and  the 
num  er  of  rays  that  hit  the  target;  and  return  control  to  the  MAIN  program 
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Subroutine  TESTG 

Subroutine  TESTG  is  called  by  the  MAIN  program  If  the  option  variable 
for  calling  Subroutine  TESTG  is  set  to  one.  The  purpose  of  this  routine  is 
to  trace  a  given  number  of  rays  between  different  sets  of  two  points  when^ 
given  the  coordinates  and  the  region  number  of  the  points.  Outputs  of  this 
routine  consist  primarily  of  leaving  region,  entering  region,  distance  the 
ray  has  travelled  into  a  region,  coordinates  of  the  point  on  the  ray,  and 
total  distance  the  ray  has  travelled. 

The  statement 


Ci  TRACE  A  ray  between  TwO  GIVEN  POINTS  *8  TO  ABF 

c 

DIMENSION  XPOltABFO) 

is  used  to  dimension  two  three-element  arrays  for  the  coordinates  of  the 
beginning  and  ending  points. 

The  statements 


AtitREOD* 


COMMON/WALT/LIRFO.NOIEHR 


are  used  to  pass  information  into  and  out  of  this  subroutine  via  COMMON 
statements. 


The  statements 


901  FORMAT(2no} 

9o?  FORMAT (iHOtEZHNUMaER  OF  SPECIAL  «AYS,15) 

903  format  t3El5.T.3n5>  .„t=t 

904  FORMATtlHo.5MSTAHT*5A*4M  Xe** SClS* 7 'BH  1RSTRT«*I5/ 

1  aM  END*7X»AHXBF»»3ElS»7»flM  lRFlN«iI5f 

format (IMo»3MWB«»3E15*7*SX»6MRaNQE"»E15»7> 

9oB  FORMAT (IMO. ex, 2HIRtAX,6HIRPRlM.izX»2HSlfl3X,ZHXP.i3X,2rtYP, 

I  13X»2H2Ptl2X»AM0lSTl 

9()T  format  (2ln),aX,5ElS*T) 

908  format (1MO,21HTROUBLE  |N  REGION  IR"*110) 


are  used  to  format  data  for  input  and  output  and  to  format  output  messages. 
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The  statements 


C 

CP  ENTER  NUMBER  OF  R«V$ 

C 

READ  tBtVOnNRAVS.NBlERR 
WRITE  16«90Z)NRaVS 
IF<NeiCRR.LE«0)NOieRR"2S 


are  used  to  enter  and  print  out  the  number  of  different  rays  to  be  traced 
and  to  enter  the  number  of  allowable  errors  for  Subroutine  Gl.  If  the 
number  of  allowable  Gl  errors  entered  is  equal  to  or  less  than  zero,  it  is 
set  to  25  allowable  Subroutine  Gl  errors. 

The  statements 

C 

Ct  trace  glVEN  NUMBER  Of  RAYS 
C 

on  so  IRAYalfNRAVS 


are  used  to  begin  a  DO  loop  which  will  enter  and  print  out  the  data  for  each 
ray  to  be  traced  between  two  given  points. 

The  statements 


C 

Ca  enter  point  coordinates  and  RceiON  or  each 

c 

READ  (S*903)XB,IRSTRT 

READ  t5»9031*ef 'iRf 

WRITE  (6t904}XB»IRSTRT.XBrttRriN 


are  used  to  enter  and  print  out  the  coordinates  of  the  beginning  and  ending 
points  of  the  ray  and  the  region  number  where  each  point  is  located. 

The  statements 


RANBEnKOIST IXBtXBPI 
CALL  OCOSPfXBiXBFtWBI 
WRITE  (B«905>WBtRANOe 


are  used  to  compute  the  distance  between  the  two  points  using  Function  XDIST, 
to  compute  the  direction  cosines  of  the  line  between  the  two  points  using 
Subroutine  DCOSP,  and  to  print  out  the  distance  and  the  direction  of  the  line 
between  the  two  points. 
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The  statements 


1B»IRSTRT 
N*SC"»l 
MflITE  t6*«o6> 


are  used  to  initialize  variable  IR  to  the  starting  region  number  and  to  set 
variable  NASC  to  a  -1  to  indicate  to  Subroutine  G1  that  a  new  ray  is  to  be 
fired.  The  table  headings  for  the  output  are  then  printed  out. 

The  statements 


Tn»CE  TO  NEXT  ftCQION  INTERSECT 

1ft  CALL  OHSl,!BPRIM,*R» 

IF(I£RR*6E.N8iERRtOOTO  bo 

XRITE  (6iRoT>1R.IRPRIM»S1»*^*OIST 


are  used  to  call  Subroutine  G1  to  determine  the  distance  to  the  next  region, 
the  number  of  the  next  region,  the  coordinates  at  the  intersect  of  the  next 
region,  and  the  total  distance  the  current  ray  has  travelled  from  the 
point.  If  more  than  the  allowable  number  of  errors  occurred  in  Subroutxne  Gi, 
control  is  transferred  to  zero  the  error  counter  and  return  to  the  MAIN 
program.  If  less  than  the  allowable  number  of  errors  occurred  in  Sub- 
routine  Gl,  the  present  region  number,  the  entering  region  number,  the  dis 
tance  to  the  entering  region,  the  coordinates  of  the  Intersect  at  the  new 
region,  and  the  total  distance  from  the  first  point  to  the  new  region  are 
printed  out  under  the  applicable  column  headings  for  this  intersect. 


The  statements 


If (DlST.0E*RANQE>a0TO  30 
If <IRPHIH,LE.O>OOTO  20 
IfiwIRPRIM 
OOTO  10 


are  used  to  determine  if  the  distance  that  the  ray  has  travelled  is  greater 
than  or  equal  to  the  distance  between  the  two  points,  or  if  the  new  region 
Is  outside  the  enclosing  geometry  of  the  enclosing  RFP-  If  not »  the  ^ur- 
rent  region  number  is  updated  to  the  new  region,  and  control  is  branched  to 
again  call  Subroutine  Gl  to  continue  the  ray. 
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The  statements 


C 

20  WRITE  (««9o8)IR 
SOTO  So 

are  executed  if  the  new  region  is  outside  the  enclosing  RPP  of  the  target 
geometry.  These  statements  print  out  the  old  region  number  with  an  error 
message  and  then  branch  to  start  the  next  ray  (if  any). 

The  statements 


30  irilRtNEtlRFlNlQOrO  2o 

SO  continue 


are  executed  if  the  distance  travelled  is  greater  than  or  equal  to  the  dis¬ 
tance  between  the  two  points.  These  statements  determine  if  the  old  region 
is  the  same  as  the  region  of  the  end  point.  If  not,  the  old  region  number, 
with  an  error  message,  is  printed  out,  and  the  program  continues  with  the 
next  ray  (if  any).  If  the  regions  are  the  same,  the  program  continues  with 
the  next  ray  (if  any) . 

The  statements 


60  lERReO 
RETURN 

ENO 

? 

C 

are  executed  when  all  rays  have  been  processed  or  when  the  allowable  number 
Subroutine  G1  was  exceeded  during  the  processing  of  one  of  the 
rays.  These  statements  set  the  error  counter  to  zero  and  return  control  to 
the  MAIN  program. 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS  (SIMULATION  MODEL) 


Definitions  of  variable  names  utilized  in  this  analysis  program  are  con¬ 
tained  in  the  following  list  of  symbols  and  abbreviations  (simulation  model). 

The  variable  names  are  presented  in  the  following  groups; 

1.  COMMON  Statements 

Variable  names  appearing  in  the  COMMON  statements  of  all  routines 
are  listed  in  one  group. 

2,  SUBROUTINES 

Variable  names  not  appearing  in  COMMON  statements  are  listed  by 
subroutine. 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

ANGLE 

a 

Angle  between  the  normal  and  the 
ray  at  the  intersect 

Degrees 

CA 

cos  a 

Cosine  of  the  azimuth  angle  of  the 
ray  with  respect  to  the  target 
geometry  origin 

ND 

CE 

cos  0 

Cosine  of  the  elevation  angle  of 
the  ray  with  respect  to  the  target 
geometry  origin 

ND 

CELS I Z 

CELS I Z 

Length  and  width  of  each  cell  in 
the  grid  plane 

Inches 

D1 

1 

Distance  from  the  first  intersect 
on  the  target  to  the  center  plane 
of  the  target 

Inches 

D2 

Distance  from  the  last  intersect 
on  the  target  to  the  center  plane 
of  the  target 

Inches 

DIST 

Distance  from  the  start  of  a  new 
region  through  the  region  until  a 
new  region  is  encountered 

Inches 

H 

H 

Horizontal  distance  from  center  of 
grid  plane  to  random  point  in 
specified  grid  cell 

Inches 

HREF 

H  r 

ref 

Horizontal  distance  from  the 
center  of  the  grid  plane  to  the 
center  of  the  grid  square 

Inches 

115 

Value  2^5,  Used  for  packing  and 
unpacking  data  in  a  single  word 

ND 

130 

on 

Value  2“^  .  Used  for  packing  and 
unpacking  data  in  a  single  word 

ND 

IA(9) 

Array  for  entering  the  logical 
operator  or  when  entering  region 
data  during  Subroutine  GENI 

ND 
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COMMON  (Continued) 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  model) 


Symbol  or 
Abbreviation 


IC(4) 


lENC 


lENTLV 


lERR 


lERRO 


IGRID 


IN(9) 


I  NORM 


Equivalent  in 
Hath 
Model 


Definition 


Array  for  entering  alphameric 
program  control  data  and  the 
abbreviation  of  the  body 
type  during  Subroutine  GENI 

Region  number  enclosing  the  target 
and  attack  plane 

Option  variable  used  to  determine 
if  Subroutine  GENI  is  to  print  out 
the  region  enter/leave  tables 

Variable  used  to  count  the  number 
of  errors  in  the  geometry  input, 
Also  used  to  count  the  number  of 
errors  in  Subroutine  G1 

Counter  for  the  number  of  0 
component  code  errors 

Grid  square  of  the  origin  of  the 
current  ray 

Array  for  entering  the  operator 
(+  or  -)  and  the  body  number  when 
entering  region  data  during  Sub¬ 
routine  GENI 

Control  variable  for  Subroutine 
ARS  to  either  compute  the  normal 
distance  (INORM-1),  or  to  compute 
the  line-of-sight  distance 
(IN0RM=0) 


IR 


Region  number  where  the  point 
along  the  ray  is  presently  located 


IRANDM 


Control  variable  passed  from  MAIN 
to  Function  RAN  for  computing  a 
random  number 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
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Definition 


Control  variable  passed  from  MAIN 
to  Subroutine  GRID  to  skip  a 
random  number  of  cells  in  the 
grid  plane  if  IRAYSK  is  not  equal 
to  zero 

Region  number  of  region  type 
data  entered 

Region  number  of  ray  origin 

Title  of  the  problem  of  up  to 
60  alphanumeric  characters 

Option  variable  for  suppressing 
printout  (ITAPES^O) 


Option  variable  used  to  determine 
if  Subroutine  TESTG  is  to  be 
called  by  the  MAIN  program 

Storage  array  for  recording  ray 
contact  data:  surface  number, 
body  number ,  next  region  number 

Two-^digit  random  number  computed 
in  Subroutine  GRID  for  printout 
by  Subroutine  TRACK 

Option  variable  used  to  determine 
if  Subroutine  VOLUM  is  to  be 
called  by  the  MAIN  program 

Option  variable  used  to  determine 
if  Subrouting  GRID  data  is  to  be 
written  on  output  tape  1 


Units 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


COMMON  (Continued) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

lYES 

Integer  variable  equal  to  one 
which  is  used  for  option  testing 

ND 

KLOOP 

Internal  ray  counter  for  keeping 
track  of  each  new  ray  in  Sub¬ 
routine  G1 

ND 

KHIT 

Counter  for  keeping  track  of  the 
number  of  components  hit  along  a 
given  ray 

L 

- — 

Counter  for  the  number  of  inter¬ 
sects  along  a  given  ray 

ND 

lABUT 

1  - 

Location  of  the  beginning  abutting 
RPP  data  in  the  MASTER-ASTER  array 

1  m 

LEASE 

Beginning  location  of  the  MASTER- 
ASTER  array  (usually  one) 

m 

LBODY 

— - 

Location  of  the  body  pointers  in 
the  MASTER-ASTER  array 

ND 

LDATA 

- — 

Temporary  address  of  data  in  the 
MASTER-ASTER  array 

ND 

LEGEOM 

Location  of  the  end  of  the  geom¬ 
etry  data  processed  by  Subroutine 
GENT 

ND 

LIO 

Location  of  the  beginning  of  a 
temporary  storage  area  in  the 
MASTER-ASTER  array  for  use  by 
Subroutine  G1 

ND 

LIRFO 

— 

Starting  location  of  the  region 

ID  data  in  the  MASTER  array 

ND 

LMAX 

— 

Total  number  of  intersects  that 
occur  along  a  given  ray 

ND 

LOCDA 

Location  of  data  in  the  MASTER 
array 

ND 

_  ■  — — — ^ 
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Syiubol  or 

Abb  reviatioti 

Equivalent  in 
Math 

Model 

Definition 

Units 

LOOP 

Value  of  KLOOP  when  ray  data  was 
stored 

ND 

LREGD 

Beginning  location  in  the  MASTER- 
ASTER  array  of  the  region  data 
pointer /number  of  bodies  in  region 

ND 

LRI 

— 

Surface  number  of  the  entering 
Intersect 

ND 

LRIN 

- - 

Beginning  location  In  the  ASTER 
array  of  the  RIN  data 

ND 

LRO 

— 

Surface  tiumber  of  the  e^it 
intersect 

ND 

LROT 

— 

Beginning  location  in  the  ASTER 
array  of  the  ROUT  data 

ND 

LRPPD 

Beginning  location  in  the  ASTER 
array  of  the  RPP  minimum/maximuro 
values 

ND 

LSCAL 

Beginning  location  in  the  ASTER 
array  where  the  scalar  data  is  to 
be  entered  by  Subroutine  GENI 

ND 

LSURF 

— 

Surface  number  of  body  surface 
hit  (negative  if  exit  intersect) 

ND 

LTRIP 

Beginning  location  In  the  ASTER 
array  where  the  triplet  data  is  to 
be  entered  by  Subroutine  GENI 

ND 

NASC 

—  —  ^ 

Current  body  number  (-1  means  start 
new  ray,  -2  means  find  normal 
distance) 

ND 

1 

NBODY 

Number  of  bodies  used  to  describe 
the  target  geometry  other  than 

RPP’s 

ND 
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Equivalent  in 
Math 
Model 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 


Definition 


Upper  limit  or  size  in  words  of 
the  MASTER-ASTER  array,  usually 
10,000 


NGIERR 


Maximum  number  of  errors  that  are 
allowed  in  Subroutine  G1 


NRMAX 


NTYPE 


Region  identification  (region 
component  code) 

Variable  made  up  of  the  body 
number  plus  the  number  of  RPP’s 

Integer  variable  equal  to  zero 
which  is  used  for  option  testing 

Total  number  of  regions  used  to 
describe  the  target  geometry 

Number  of  rectangular  parallele¬ 
pipeds  used  to  enclose  the  target 
geometry 

Space  code  of  the  region  following 
the  next  intersect 


Value  10^0 . 
infinity 


Used  to  represent 


Distance  along  the  ray  from  the  Inches 

beginning  of  a  given  region  to  the 
entry  intersect  of  the  body  under 
consideration 

Distance  along  the  ray  from  the  Inches 

beginning  of  a  given  region  to  the 
exit  intersect  of  the  body  under 
consideration 


COMMON  (Continued) 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
f SIMULATION  MODEL) 


Symbol  or 
Abb  reviation 


Equivalent  in 
Math 
Model 


Definition 


Units 


SA 


SE 


SLOS 


SN 


S SPACE 


TR(200) 


TRAVEL 


VREF 


WBC3) 


sin  a 


sin  0 


ref 


WB 


Sine  of  the  azimuth  angle  of  the 
ray  with  respect  to  the  target 
geometry 

Sine  of  the  elevation  angle  of  the 
ray  with  respect  to  the  target 
geometry 

Line-of-sight  distance  through 
region  following  present  intersect 

Normal  distance  through  a  given 
region 

Line-of-sight  distance  through 
space  following  a  given  intersect 

Storage  array  for  recording  ray 
line-of-sight  distance  from  con¬ 
tact  to  contact 

Line-of-sight  distance  from  origin 
of  ray  to  present  intersect 

Vertical  distance  from  center  of 
grid  plane  to  random  point  in 
specified  grid  cell 

Vertical  distance  from  center  of 
grid  plane  to  center  of  grid 
square 

Present  direction  cosines  of  the 
ray 


m 


ND 


Inches 


Inches 


Inches 


ND 


Inches 


Inches 


Inches 


ND 


WS(3) 

X(6) 


ws 


Original  direction  cosines  of  the 
ray 


ND 


Temporary  storage  array  for 
entering  the  six  bounding  planes 
of  an  RPP 


Inches 


TN  4565-3-71  Vol  II 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


COMMON  (Concluded) 


Syiubol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

XB(3) 

XB 

y,  and  z  coordinates  of  the 
origin  of  the  ray  with  respect 
to  a  given  intersect 

Inches 

XBS{3) 

X 

p 

X,  y,  and  z  coordinates  of  a  point 
in  a  plane  through  the  center  of 
the  target  geometry  through  which 
the  ray  will  pass 

Inches 

XS(3) 

X,  y,  and  2  coordinates  of  the 
origin  of  the  ray  in  the  grid 
plane 

Inches 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

A 

Six- element  array  for  entering  a 
description  of  the  region  type 
data 

ND 

I 

Index  in  DO  loops  or  for  entering 
and  writing  out  data 

ND 

I  CODE 

— 

Item  code  of  component 

NO 

1 

! 

IDENT 

Space  code  and  special  ident 1— 
fication  of  region 

ND  j 

1 

1RDTP4 

— 

Option  variable  for  entering  the 
target  geometry  data  from  tape 

1 

ND  j 

IRN 

— 

Area  for  entering  region  numbers 
when  entering  region  data 

ND  1 

IWRTP4 

Option  variable  for  writing  out 
the  target  geometry  data  onto 
tape  ! 

NU  1 

i 

1 

K 

1 

Location  pointer  to  the  MASTER 
array  for  storing  ICODE  ana 

IDENT  region  data 

1 

ND  j 

NAKi^A 

j 

Number  of  aspect  angles  to  be 
processed  by  Subroutine  AREA 

ND  ! 

1 

NOAA 

j 

i 

( 

Number  of  aspect  angles  to  be 
processed  by  Subroutine  GRID 

ND  ! 

! 

s 

1 

! 

ii 

1 

i 

1 _ 

i 

1 

i  ...  ! 

> !  ^ 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

A 

— 

Distance  from  the  center  to  one 
end  of  an  ellipsoid  of  revolution 

Inches 

ASQ 

Distance  squared  from  center  to 
one  end  of  an  ellipsoid  of  revolu¬ 
tion 

Inches^ 

c 

Distance  from  the  center  to  a 
focus  of  an  ellipsoid  of  revolu¬ 
tion 

Inches 

cx 

X  component  distance  from  the 
center  to  a  focus  of  an  ellipsoid 
of  revolution 

Inches 

CY 

y  component  distance  from  the 
center  to  a  focus  of  an  ellipsoid 
of  revolution 

Inches 

CZ 

z  component  distance  from  the 
center  of  a  focus  of  an  ellipsoid 
of  revolution 

Inches 

FX(20) 

Temporary  array  used  to  enter 
body  triplet  and  scalar  data* 

Also  used  for  manipulating  and 
computing  additional  data  before 
storing  the  data  into  the  MASTER- 
ASTER  array  in  its  final  format 

ND 

HDN 

Dot  product  of  the  height  vector 
and  the  normal  to  the  base 
ellipse  of  a  truncated  elliptic 
cone 

Inches 

I 

— 

Index  for  various  DO  loops 

ND 

II 

— 

Pointer  to  the  first  position  of 
a  group  of  data  in  the  ASTER  array 

ND 

12 

Pointer  to  the  last  position  of  a 
group  of  data  in  the  ASTER  array 

ND 
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Equivalent  in 


Symbol  or 
Abbreviation 


Math 

Model 


Definition 


Storage  location  containing  the 
Hollerith  logical  operator  ’’bbb’^ 

Storage  location  containing  the 
Hollerith  logical  operator  *'OBb" 

Storage  location  containing  the 
Hollerith  logical  operator  *'bRb" 


Units 


(Table  continued  on  next  page) 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SnBBiUTlNE  GENI  (Co„tlnuad> 


Symbol  or 
Abbreviatioti 

Equivalent  in 
Math 

Model 

Definition 

Units 

IAA(4) 

— 

Storage  location  containing  the 
Hollerith  logical  operator  ’^Rbb’' 

ND 

1AA(5) 

— — 

Storage  location  containing  the 
Hollerith  logical  operator  "RAb" 

ND 

IAA(6) 

— ^ 

Storage  location  containing  the 
Hollerith  logical  operator  *^ARb** 

ND 

IAA{7) 

Storage  location  containing  the 
Hollerith  logical  operator  "bAb" 

ND 

1  i^A(a) 

— *- 

Storage  location  containing  the 
Hollerith  logical  operator  "Abb" 

ND 

lAN(l) 

1 

_ 

Storage  location  containing  the 
Integer  4  for  converting  the 
Hollerith  logical  operator  to  a 
numerical  value  of  four 

ND 

I  1  .-W  ( 2 ) 

Storage  location  containing  the 
integer  1  for  converting  the 
Hollerith  logical  operator  to  a 

1  numerical  value  of  one 

NO 

1  J 

IAN  ( i) 

Storage  location  containing  the 
integer  1  for  converting  the 
Hollerith  logical  operator  to  a 
numerical  value  of  one 

ND 

1 

IAIU4) 

Storage  location  containing  the 
integer  1  for  converting  the 
Hollerith  logical  operator  to  a 
numerical  value  of  one 

ND 

IANf5) 

Storage  location  containing  the 
integer  2  for  converting  the 
Hollerith  logical  operator  to  a 
numerical  value  of  two 

ND 

IAN (6) 

1 

1 

Storage  location  containing  the 
integer  2  for  converting  the 
Hollerith  logical  operator  to  a  i 

nmiaLical  value  of  two 

1 

1 

ND 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

IAN (7) 

Storage  location  containing  the 
integer  3  for  converting  the 
Hollerith  logical  operator  to  a 
numerical  value  of  three 

ND 

IAN  (8) 

Storage  location  containing  the 
integer  3  for  converting  the 
Hollerith  logical  operator  to  a 
numerical  value  of  three 

ND 

IBL 

— 

Storage  location  containing  one 
Hollerith  blank  for  testing  for 
blank  fields  on  card  Input 

ND 

II 

Number  of  bodies  in  the  larger  of 
two  regions  that  is  used  as  the 
upper  limit  of  a  DO  loop  for  com¬ 
paring  each  item  in  the  smaller 
region  with  each  Item  In  the 
larger  region 

ND 

IK 

Lower  limit  of  a  DO  loop  used  to 
print  out  the  MASTER-ASTER  array 
three  words  at  a  time  where  IK  is 
the  location  of  the  first  of  the 
three  words 

ND 

IK2 

Upper  limit  of  a  DO  loop  used  to 
print  out  the  MAS TER- AS TER  array 
three  words  at  a  time  where  IK2 
is  the  location  of  the  third  of 
three  words 

ND 

10 

,  Number  of  bodies  in  the  smaller 
of  two  regions  that  is  used  as 
the  upper  limit  of  a  DO  loop  for 
comparing  each  item  in  the  smaller 
region  with  each  item  in  the 
larger  region 

ND 

I  OP 

Logical  operator  of  the  body  to  be 
tested  or  compared  from  the  enter/ 
leave  tables  in  the  ASTER  array 

ND 
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Symbol  or  Equivalent  in 

Abbreviation  Math  Definition 

Model 


lOPER 


Refer  to  lOP 


Refer  to  lOP 


Refer  to  lOP 


IPRIN 


IRCHEK 


Option  control  variable  for 
printing  out  the  entire  MASTER- 
ASTER  array 

Number  of  the  region  entered  from 
the  card  input 

Option  control  variable  for 
verifying  the  validity  of  the 
region  enter/leave  tables 


ITEMP 


ITY(l) 


ITY(2) 


ITY(3) 


Value  of  +1  or  -1  used  in  pre¬ 
paring  the  enter/leave  tables. 

For  IS  =  -1  the  leave  table  is 
prepared  and  for  IS  =  +1  the 
enter  table  is  prepared 

Variable  used  to  represent  the 
location  of  a  region  data  pointer 
word 

Storage  location  containing  the 
Hollerith  string  BOX  to  repre¬ 
sent  a  box 

Storage  location  containing  the 
Hollerith  string  SPH  to  repre¬ 
sent  a  sphere 

Storage  location  containing  the 
Hollerith  string  RCC  to  repre¬ 
sent  a  right  circular  cylinder 


ITY(4) 


Storage  location  containing  the 
Hollerith  string  REC  to  repre¬ 
sent  a  right  elliptic  cylinder 
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Symbol  or  i 

Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

ITY(5) 

— 

Storage  location  containing  the 
Hollerith  string  TRC  to  repre¬ 
sent  a  right  truncated  cone 

ND 

ITY(6) 

— 

Storage  location  containing  the 
Hollerith  string  ELL  to  repre¬ 
sent  an  ellipsoid  of  revolution 

ND 

ITY(7) 

- - 

Storage  location  containing  the 
Hollerith  string  RAW  to  repre¬ 
sent  a  right  angle  wedge 

ND 

ITY(8) 

Storage  location  containing  the 
Hollerith  string  ARB  to  repre-  ' 

sent  an  arbitrary  polyhedron 

ND 

ITY(9) 

Storage  location  containing  the 
Hollerith  string  TEC  to  repre¬ 
sent  a  truncated  elliptic  cone 

ND 

ITY(IO) 

— 

Storage  locating  containing  the 
Hollerith  string  TOR  to  repre¬ 
sent  a  torus 

ND 

ITY(ll) 

Storage  location  containing  the 
Hollerith  string  ARS  to  repre¬ 
sent  an  arbitrary  surface 

ND 

ITYPE 

1 

Variable  first  used  to  store  the 
string  of  the  body  type  when  a 
card  is  entered.  It  is  later  used 
to  store  the  integer  equivalent  of 
the  body  type 

ND 

IWH 

- 

Pointer  to  the  location  of  pointer 
data  in  the  MASTER  array 

ND 

J 

Index  used  to  represent  region 
numbers 

ND 
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Symbol  or  Equivalent  in 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Abbreviation 


J1-J12 


Math 

Model 


Definition 


Variables  used  to  represent  the 
first  and  last  location  of  either 
the  region  enter  table  or  region 
leave  table  during  the  printout 
of  these  tables 

Variable  used  as  an  index  when 
comparing  the  region  data  of  two 
different  regions 

Index  for  use  in  DO  loops  and  in 
entering  data 

Index  for  the  number  of  bodies  in 
the  larger  of  two  regions  where 
the  region  tables  are  being 
verified 

Variable  used  to  represent  the 
location  of  a  region  data  word 

Index  for  the  number  of  bodies  in 
the  smaller  of  two  regions  where 
the  region  tables  are  being 
verified 

Variable  used  to  represent  the 
location  of  a  region  data  pointer 
word 

Variable  used  to  represent  the 
location  of  a  region  data  pointer 
word 


Temporary  storage  location  or 
coordinate  index 

Variable  used  to  represent  the 
location  of  the  last  word  in  the 
enter/leave  table 

Variable  used  to  represent  the 
last  location  of  RPP  data  in 
the  MASTER-ASTER  array 
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Symbol  or 
Abbreviation 


Equivalent  in 
Math 
Model 


Definition 


LBOD 


LBOT 


LD 


LE 


LEAV 


Variable  used  to  represent  the 
beginning  location  of  the  body 
data  pointers 

Variable  initially  used  to  repre¬ 
sent  the  beginning  location  of  th: 
scalar  data.  This  value  changes 
as  additional  body  data  is  stored 
backward  from  the  beginning 
location  of  the  scalar  data 

Variable  used  to  represent  the 
location  of  the  last  word  of  the 
body  data  pointers 

Variable  used  to  represent  the 
number  of  data  elements  or 
pointers  for  a  given  body 

Pointer  to  the  first  location  of 
the  region  leave  table 


LEGEOM 


LENLV 


Pointer  to  the  last  location  of 
the  geometry  data  processed  by 
Subroutine  GENI 

Variable  used  to  represent  the 
beginning  location  of  the  leave/ 
enter  tables 


LENT 


Pointer  to  the  first  location  of 
the  region  enter  table 


LL 


LOG 


Variable  used  as  a  counter  to 
represent  the  number  of  errors 
in  the  region  data  when  the 
checking  option  is  performed 

Variable  used  to  represent  the 
location  of  a  specific  word  in 
the  MASTER- ASTER  array 


LOCI 


Variable  used  to  represent  the 
location  of  the  region  data  for 
a  specific  region 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

LOCJ 

— 

Variable  used  to  represent  the 
location  of  the  region  data  for 
a  specific  region 

LREGL 

Variable  used  to  represent  the 
beginning  location  of  the  region 
data 

LSI 

Variable  used  to  indicate  whether 
triplet  data  (LSl^O)  or  scalar 
data  (LSl-1)  Is  to  be  stored  by 
Subroutine  SEE3 

LSUB 

Variable  used  to  represent  the 
number  of  unused  words  between 
the  last  pointer  word  and  the 
first  body  data  word 

LT 

Pointer  to  a  reference  location 
for  storing  pointers  to  triplet 
data 

M 

Counter  or  pointer  for  the  region 
data  in  the  body  pointer  section 
of  the  MASTER  array 

MIS 

Counter  for  the  number  of  matching 
operator/body  combinations  in 
another  region 

MM 

Variable  used  to  Index  to  specific 
body  data  words  in  the  region  data 

MMM 

Index  used  to  prepare  either  the 
region  leaving  table  or  region 
entering  table 

N 

- - 

Index  used  to  represent  body 
number  or  region  number 

NBI 


Region  table  body  number  to  be 
compared 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 

,  ,  (SIMULATION  MODEL) 

SUBROUTINE  GENI  (Continued) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

NENR  > 

Variable  that  represents  the  total 
number  of  geometric  shapes  used  to 
describe  the  target  geometry.  It 
is  used  in  printing  the  enter/ 
leave  table 

ND 

NBO 

— 

Region  table  body  number  under 
test 

ND 

NBOD(I) 

Eleven -element  array  used  to  count! 
the  number  of  times  each  of  the 
eleven  body  shapes  was  used  to 
describe  the  target  geometry 

ND 

NC 

Number  of  bodies  in  a  given  region 

ND 

NEAV 

Number  of  bodies  in  a  given  region 
leave  tab le 

ND 

i 

KENT 

— 

Number  of  bodies  in  a  given  region 
enter  table 

ND 

NO  1(H) 

N02(M)  j 

1 

— 

TWO  three-element  arrays  used  to 
represent  the  last  15  bits  and  the 
15  bits  previous  to  the  last  15 
bits  respectively  of  a  computer 
word  during  the  MASTER-ASTER 
array  printout  option  when  three 
words  are  printed  out  at  a  time 

ND 

NOO (M) 

Three- element  array  used  to  repre¬ 
sent  the  three  locations  of  the 
words  for  printout  during  the 
MASTER-ASTER  array  printout  option 

ND 

NUM 

— 

Body  number  candidate  for  a 
region  enter  or  leave  table 

ND 

NUMI 

Number  of  bodies  In  the  smaller 
region  when  checking  validity 
region  data 

ND 

NUMJ 

Number  of  bodies  in  the  larger 
region  when  checking  validity  of 
region  data 

ND 
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SUBROUTINE  GENl  (Concluded) 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 


Equivalent  in 
Math 
Model 


Definition 


Units 


04  (M) 


Three  element  array  used  to  store 
the  three  words  to  be  printed  out 
during  the  MASTER-ASTER  array 
printout  option 


ND 


TT(3) 


Three  element  array  used  to  store 
the  X,  y,  and  z  coordinates  of  the 
normal  to  the  base  ellipse  of  a 
TEC 


Inches 


TT1(3) 


Three  element  array  used  to  store 
the  X5  y,  and  z  coordinates  of  the 
semi -major  axis  of  the  base 
ellipse  of  a  TEC 


Inches 


TT2C3) 


Three  element  array  used  to  store 
the  yj  and  z  coordinates  of  the 
semi-minor  axis  of  the  base 
ellipse  of  a  TEC 


Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 

SUBROUTINE  EPPIN  _ 


Equivalent  in 

Math  Definition 

Model 


Symbol  or 
Abbreviation 


Units 


Location  of  the  pointers  for  a 
given  side  of  an  RPP ,  or 

Number  of  an  RPP  for  use  in 
DO  loops 

Number  of  abutting  RFF'^s  in 
packed  format 

Pointer  to  the  boundary  coordinate 
for  a  given  side  of  an  RPP 

Pointer  to  the  location  of  the 
boundary  coordinate  for  a  given 
side  of  an  RPP,  or 

Number  of  an  RPP  for  use  as  the 
lower  limit  in  a  DO  loop 

Index  used  to  represent  the  side 
or  number  of  an  RPP 

Location  of  the  pointers  for  a 
given  side  of  an  RPP 

Location  of  the  pointers  for  a 
given  side  of  an  RPP,  or 

Index  used  to  represent  side  pairs 
of  an  RPP  for  use  in  a  DO  loop 

Even  numbered  side  of  a  given  RPP 

Odd  numbered  side  of  a  given  RPP 

Number  representing  the  sum  of 
the  numbers  of  two  opposite 
sides  of  an  RPP 

Index  for  referencing  storage  in 
the  LRPPD  section 

Location  of  the  last  word  of  RPP 
data 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  RPPIN  (Concluded)  (SIMULATION  MODEL) 


Definition 


Location  of  the  last  word  of 
RPP  data 

Counter  for  the  number  of  abutting 
RPP’s  for  a  given  side  of  an  RPP 

Switch  used  in  determining  in 
which  part  of  a  packed  word  the 
number  of  an  abutting  RPP  is  to 
be  stored 

Represents  the  number  of  an  RPP 
or  the  number  of  a  side  of  an  RPP 

Represents  the  side  of  an  RPP 
opposite  the  side  under  test 


Sum  of  the  numbers  representing 
two  opposite  sides  of  an  RPP 

One  less  than  the  number  of  RPP’s 
used  to  represent  the  target 
geometry 

Value  of  a  boundary  coordinate  for 
a  side  of  a  given  RPP 


Units 

ND 

ND 

ND 

ND 

ND 

ND 

ND 

Inches 


TN  4565-3-71  Vol  II 


SUBROUTINE  ALBERT 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or  Equivalent  in 


Math 

Model 


Definition 


Coefficient  of  x  in  the  equation 
of  the  plane 

Sum  of  the  squares  of  the  x,  y, 
and  z  components  of  the  equation 
of  the  plane 

24-eleinent  two-dimensional  array 
for  entering  and  storing  the 
coordinates  of  the  eight  vertices 
of  the  ARB 

Coefficient  of  y  in  the  equation 
of  the  plane 

Coefficient  of  z  in  the  equation 
of  the  plane 

Constant  term  in  the  equation  of 
the  plane 

Square  of  the  length  between  two 
vertices  of  a  side  of  the  ARB 

D12  times  lO”^^ 

Perpendicular  distance  from  the 
fourth  vertex  to  the  plane  formed 
by  the  first  three  vertices 


Four- element  array  for  storing  the 
results  of  the  four  vertices  not 
part  of  the  plane  under  consider¬ 
ation  when  substituted  into  the 
plane  equation 

Six-element  array  that  contains 
the  coordinates  of  the  first  two 
vertices  of  the  ARB 

Index  for  entering  the  coordi¬ 
nates  of  the  vertices  of  the  ARB 


Units 


Inches 


Inches 


Inches 


Inches 


Inches 


Inches 


Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE  ALBERT  MODEL) 


Syiobol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

lA 

24“eleitient  two-dtmens  ional  array 
for  entering  and  storing  the  four 
ordinal  vertex  numbers  for  six 
planes  of  the  ARB 

IC 

— 

Fourth  ordinal  number  of  one  of 
the  vertices  of  a  plane 

IWH 

Pointer  returned  by  Subroutine 

SEE 3  to  the  location  where  the 

ARB  data  was  stored 

IX 

First  ordinal  number  of  one  of  the 
vertices  of  a  plane 

lY 

Second  ordinal  number  of  one  of 
the  vertices  of  a  plane 

IZ 

— 

Third  ordinal  number  of  one  of  the 
vertices  of  a  plane 

J 

Index  in  a  DO  loop  for  s toring 
coordinates  of  two  vertices.  Also 
used  to  count  the  number  of  ver- 
trees  on  the  positive  side  of  the 
plane  under  test 

K 

Index  for  referencing  elements  in 
array  FX.  Also  used  as  an  index 
to  zero  array  F 

L 

■ - - 

Index  for  storing  data  Into  the 

F  array 

LBOT 

- — 

Pointer  to  the  location  where  data 
was  last  stored  by  Subroutine  SEES 

LSI  ! 

Variable  used  to  Indicate  to  Sub^ 
routine  SEES  whether  triplet  data 

I  (LSl-0)  or  scalar  data  (LS1=1)  is 
to  be  stored 

M 

Variable  for  counting  the  number 
of  vertices  on  the  negative  side 
of  the  plane  under  test 
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SUBROUTINE  A1 

Symbol  or 
Abbreviation 


N 

NDQ 

S 


WX 


WY 


WZ 


XI 

X2 

X3 

X4 

Y1 

Y2 

Y3 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 

BERT  (Continued) _ 


Equivalent  in 
Math 

Model 

Definition 

Units 

— 

Variable  for  counting  the  number 
of  vertices  remaining  on  the 
plane  under  test 

ND 

— 

Upper  limit  pointer  of  the  MASTER- 
ASTER  array 

ND 

— 

Square  root  of  the  sum  of  the 
squares  of  the  x,  y,  and  z 
coefficients 

Inches 

— 

X  direction  cosine  of  a  vector 
from  the  origin  perpendicular  to 
the  plane 

Inches 

— 

y  direction  cosine  of  a  vector 
from  the  origin  perpendicular  to 
the  plane 

Inches 

— 

z  direction  cosine  of  a  vector 
from  the  origin  perpendicular  to 
the  plane 

Inches 

— 

X  coordinate  of  the  first  vertex 
of  a  plane 

Inches 

— 

X  coordinate  of  the  second  vertex 
of  a  plane 

Inches 

— 

X  coordinate  of  the  third  vertex 
of  a  plane 

Inches 

— 

X  coordinate  of  the  fourth  vertex 
of  a  plane 

Inches 

- - 

y  coordinate  of  the  first  vertex 
of  a  plane 

Inches 

— 

y  coordinate  of  the  second  vertex 
of  a  plane 

Inches 

y  coordinate  of  the  third  vertex 
of  a  plane 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE  ALBERT  (Concluded/^™^^'^^^^  MODEL) 


Symbol  or 
Abbreviation 


Y4 


Z1 


Z2 


Z3 


Z4 


Equivalent  In 
Math 
Model 


Definition 


y  coordinate  of  the  fourth  vertex 
of  a  plane 

E  coordinate  of  the  first  vertex 
of  a  plane 

E  coordinate  of  the  second  vertex 
of  a  plane 

E  coordinate  of  the  third  vertex 
of  a  plane 

z  coordinate  of  the  fourth  vertex 
of  a  plane 


Units 


Inches 

Inches 

Inches 

Inches 

Inches 


SUBROUTINE  ARIN 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 
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Symbol  or 
Abbreviation 

Equivalent  in 
Hath 

Model 

Definition 

Units 

I 

DO  loop  index  equal  to  curve  num¬ 
ber  during  input  of  ARS  point  data 

ND* 

L 

— « 

DO  loop  index  for  referencing 
storage  locations  in  the  ARS  point 
data  section 

ND 

LBOT 

_ — 

Pointer  to  beginning  location  of 
storage  area  for  ARS 

ND 

LDATA 

Pointer  to  next  available  location 
in  body  pointer  section  of  MASTER 
array 

ND 

LOG 

— 

Storage  location  pointer  for  ARS 
point  data  section 

ND 

LOCO 

— 

Storage  location  pointer  for  ARS 
point  data  section 

ND 

LI 

— “ 

DO  loops  lower  limit  for  ref erenc- ' 
ing  storage  locations  in  ARS  point 
data  section 

ND  ! 

L2 

— 

DO  loops  upper  limit  for  referenc¬ 
ing  storage  locations  in  ARS  point 
data  section 

ND 

M 

- - - 

Number  of  curves  used  to  describe  ' 
given  ARS 

ND 

MN 

— 

Total  number  of  points  used  to 
describe  given  ARS 

ND 

N 

— 

Number  of  points  per  curve 

ND 

NP 

Number  of  points  to  be  stored; 
NP=2’*N5^(M-1)  ;  points  stored  in 
pairs  between  consecutive  curves 

ND 

NSTR 

Total  number  of  storage  words 
required  for  the  given  ARS 

ND 

NT 

Number  of  triangles  described 

ND 

*Non-dimensional 
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LIST  OF 

SUBROUTINE  ARIN  (Concluded) 


SYMBOLS  AND  ABBREVIATIONS 
{SIMULATION  MODEL) 


Symbol  or 
Abbreviation 


Equivalent  in 
Math 
Model 


Def ini tion 


Units 


NT 

UW(3) 

VW(3) 

W(3) 

WN(3) 


Number  of  non-degenerate  triangles 
In  given  ARS 

X,  y,  z  coordinates  of  vector 
between  first  point  and  second 
point  of  given  triangle  of  ARS 

X,  y,  z  coordinates  of  vector 
between  first  point  and  third 
point  of  given  triangle  of  ARS 

X,  y,  z  coordinates  of  first 
point  of  given  triangle  of  ARS 

X,  y,  z  coordinates  of  vector 
formed  from  cross  product  of 
vectors  UV(3)  and  VW(3) 


ND 


m 


m 


ND 


ND 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

FX 

— 

X  coordinate  of  the  triplet  data, 
or  the  value  of  the  scalar  quantity 

ND 

FXX 

— 

y  coordinate  of  the  triplet  data, 
or  the  value  of  the  scalar  quantity 

ND 

FXXX 

— 

z  coordinate  of  the  triplet  data, 
or  the  value  of  the  scalar  quantity 

ND 

I 

— 

Index  for  searching  through  the 
triplet/scalar  data 

ND 

IWH 

— 

Pointer  to  location  of  the  triplet 
or  scalar  data 

ND 

LBOT 

— 

Beginning  locations  of  the  triplet/ 
scalar  data  section 

ND 

LDATA 

— — 

Pointer  to  the  next  available 
location  in  the  body  section  of 
the  MASTER  array 

ND 

LSI 

Variable  used  to  indicate  whether 
triplet  data  (LS1=0)  or  scalar 
data  (LS1=1)  is  in  the  argument 
list 

ND 

NDQ 

— 

Last  location  of  the  MASTER-ASTER 
array 

ND 

NDQ2 

NDQ-2 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

A 

A 

Azimuth  angle 

Degrees 

AR 

a 

Azimuth  angle 

Radians 

CELL  2 

D/2 

One«half  the  total  number  of  grid 
cells 

ND 

E 

E 

Elevation  angle 

Degrees 

ENGTH 

ENGTH 

Back^off  distance  of  the  shifted 
point  of  the  given  cell 

Inches 

ER 

1  9 

Elevation  angle 

Radians 

GROUND 

z ^coordinate  of  ground  level 

Inches 

ICENTR 

Control  variable  for  originating 
the  ray  from  the  center  of  the 
cell  when  equal  to  one 

ND 

IH 

Random  number  for  computing  a 
random  horizontal  point  within  a 
given  cell 

ND 

II 

I 

Variable  that  represents  the  row 
number  of  the  grid 

ND 

IV 

r 

V 

Random  number  for  computing  a 
random  vertical  point  within  a 
given  cell 

ND 

J 

J  , 

Variable  that  represents  the 
column  number  of  the  grid 

ND 

KK 

k 

Index  of  the  major  DO  loop  that 
represents  the  cell  number 

ND  , 

KKl 

— " — 

Index  that  represents  an  x,  y,  or 
z  coordinate  in  a  DO  loop 

ND 

MSHIFT 

Random  number  between  0  and  2 A 
that  determines  the  random  number 
of  cells  to  be  skipped 

ND 

NEND 

N 

Number  of  the  last  cell  in  the 
grid 

ND 

NSTART 

Starting  cell  number,  usually  the 
first  cell  In  the  grid 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

NX 

K 

X 

NY 

N 

y 

RADIAN 

R 

WP(3) 

Definition 


Number  of  horizontal  cells  in 
the  grid  plane 

Number  of  vertical  cells  in  the 
grid  plane 

One  degree  in  radians  = 
0.017453292519943 

X*  y,  2  coordinates  of  random 
direction  cosines  returned  by 
Subroutine  TROPIC 


Radians 


Inches 


XSHIFT 


XSHIFT  Distance  target  origin  and  grid 

plane  center  is  effectively  shift ec 
in  the  X  direction 


Inches 


YSHIFT 


ZSHIFT 


YSHIFT 


ZSHIFT 


Distance  target  origin  and  grid  Inches 
plane  center  is  effectively  shifted 
in  the  Y  direction 

Distance  target  origin  and  grid  Inches 

plane  center  is  effectively  shifted 
in  the  Z  direction 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

ANGLE 1 

— 

Save  area  for  obliquity  angle  of 
intersect  for  first  half  of  out¬ 
put  line 

ND 

ERROR 

Two-element  array  containing 
Hollerith  data  for  possible 
printout 

ND 

D1 

Distance  from  the  first  inter¬ 
sect  of  the  target  to  the  center 
plane  of  the  target 

Inches 

D2 

—I  1 

Distance  from  the  last  intersect 
of  the  target  to  the  center  plane 
of  the  target  * 

Inches 

I 

Index  in  a  DO  loop  for  referencing 
the  TR  and  ITR  arrays.  Also  used 
as  an  index  for  the  x,  y,  and  z 
coordinates  in  another  DO  loop 

ND 

112 

— 

Value  for  packing  data  into  array 
112  =  2^^  =  4096 

ND 

IDENT 

Region  identification  space  code 

ND 

IH 

- - - 

Horizontal  cell  number  from 
center  of  grid 

ND 

IRPRIM 

-  ! 

Region  number  returned  by 
Subroutine  G1 

ND 

IV 

— 

Vertical  cell  number  from  center 
of  grid 

ND 

JCNT 

— 

Counter  used  to  count  the  spaces 
the  ray  encounters  in  the  target 

ND 

JERRO 

Index  for  ERROR  array.  Set  to  2 
if  0  component  code  error  occurs. 

ND 

ND 

KLSURF 

Surface  number  where  the  ray 
intersects  the  body  (negative 
for  exit  intersect) 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 


MARMR 

MSKRT 

MTARG 

MVOl 


NTYFEl 


SLOSl 


SPACEl 


Equivalent  in 
Math 

Model 

Definition 

Units 

Location  of  the  region  identity 
code  in  the  region  type  data 
section 

ND 

Flag  for  indicating  armor  material 

ND 

Flag  for  indicating  skirt  material 

ND 

Flag  for  indicating  target 

ND 

- - 

Flag  for  indicating  interior  I 

volume 

ND 

— 

Number  of  components  hit  by  ray 

ND 

Save  area  for  region  identifica¬ 
tion  (vehicle  component)  of 
intersect  for  first  half  of 
output  line 

ND 

Save  area  for  the  type  of  space 
following  region  of  intersect  for 
first  half  of  output  line 

ND 

Distance  to  the  next  region 
returned  by  Subroutine  Cl 

Inches 

Save  area  tor  the  1 ine-of-sigh t 
distance  through  region  for  first 
half  of  output  line 

ND 

Save  area  for  normal  distance 
through  region  for  first  half 
of  output  line 

ND 

Save  area  for  line-of-sight 
distance  through  space  for  first 
half  of  output  line 

ND 

-  -  -i 

Summing  location  fur  computing 
distance  from  first  target  inter¬ 
sect  to  center  plane  of  target 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE 

LC 

(SIMULATION  MODEL) 

Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

A 

A 

Variable  used  in  the  ELL  section 
to  represent  the  length  of  the 
major  axis 

Inches 

A1 

a 

Variable  used  in  the  REC  section 
to  represent  the  length  from  the 
center  along  the  major  axis 

Inches 

A2 

b 

Variable  used  in  the  REC  section 
to  represent  the  length  from  the 
center  along  the  minor  axis 

Inches 

ASQ 

(Rl/R2)^  BSQ 

Variable  used  In  the  TEC  section 
to  represent  the  square  of  the 
radius  of  the  intersection 
ellipse  along  the  semi-major  axis 

Inches^ 

Bsq 

[yR4+R2(l-y))' 

Variable  used  in  the  TEC  section 
to  represent  the  square  of  the 
radius  of  the  intersection 
ellipse  along  the  semi-minor  axis 

Inches^ 

c 

c 

1 

1  Variable  used  in  the  REC  and  TEC 
section  to  represent  the  distance 
from  the  center  of  the  ellipse  to 
the  foci 

Inches 

1 

DIS 

— 

Distance  from  ray  origin  to 
intersect  in  ARS  section  , 

Inches 

DIV 

Variable  used  in  the  ARB  section 
to  represent  the  square  root  of 
the  sum  of  the  squares  of  the  x, 
y,  and  z  coefficients  of  the 
equation  of  the  intersected  plane 

Inches 

GAMMA 

(X-V) 'N 

H-N 

Variable  used  in  the  TEC  section 
to  represent  the  ratio  of  the 
height  of  the  hit  along  the  nor¬ 
mal  to  the  distance  between  the 
two  planar  surfaces 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 

SUBROUTINE  CALC  (Continued) _ 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

HDN 

H*N 

Variable  used  in  the  TEC  section 
to  represent  the  length  of  the 
height  vector  when  projected  onto 
the  normal  to  the  base  ellipse 

Inches 

HF(3) 

— 

Array  used  in  TEC  section  for  the 
coordinates  of  the  height  vector 

Inches 

m 

(X-V) 'N 

Variable  used  in  the  TEC  section 
to  represent  the  length  of  the 
vector  from  the  vertex  to  the 
intersect  when  projected  onto 
the  normal  to  the  base  ellipse 

Inches 

1 

— 

Variable  used  throughout  the 
program  as  an  index 

ND  1 

IDENT 

— 

Variable  used  to  represent  the 
space  code  of  a  particular  region 

ND 

lEMP 

- - 

Temporary  storage  for  entering 
the  coordinate  data  for  the  box 

m 

UK 

- * 

Variable  used  throughout  the 
program  as  an  index  for  retriev¬ 
ing  data  from  the  ASTER  array 

!  ND 

IJKI 

— 

Refer  to  UK 

ND 

IJK2 

— 

Refer  to  UK 

1JK3 

Refer  to  UK  ’ 

m 

I  SPOT 

- - 

Variable  used  as  an  index  to 
locate  specific  region  data  in  tne 
ASTER  array 

WJ 

ITYPE 

1 

Variable  used  to  represent  the 
body  type  of  the  intersected  body 

mt 

J 

Variable  used  throughout  the 
program  as  an  index 

ND 
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SUBROUTINE  CA 

(SIMULATION  MODEL) 

Symbol  or 
Abbreviation 

Equivalent  in 
Kath 

Model 

Definition 

Units 

K 

Variable  used  in  the  RAW  section 
as  an  index  to  retrieve  data  from 
the  ASTER  array 

ND 

KCOM 

Variable  used  in  the  BOX  section 
to  test  the  surface  number  of  the 
intersect  for  odd  or  even  status 

ND 

Ll 

Pointer  to  the  location  of  the 

Xj  y,  and  z  coefficients  for  the 
equation  of  the  intersected  plane  i 
of  the  ARB 

ND 

LA 

Pointer  to  the  location  of  the 
direction  cosines  of  the  semi- 
major  axis  of  the  base  ellipse 
of  the  TEC 

ND 

LH 

Variable  used  in  the  BOX  section 
an  index  to  locate  the  three 

H  vectors  of  the  BOX  in  the 

ASTER  array 

ND 

LK 

— 

Refer  to  K 

ND 

LKK 

Variable  used  In  the  RPP  section 
as  an  index  to  locate  data  in  the 
ASTER  array 

ND 

LN 

1  — 

Pointer  to  the  location  of  the 
direction  cosines  of  the  normal 
for  the  TOR  and  TEC 

ND 

LOG 

Location  of  the  pointers  in  the 
LBODY  section  for  the  body  being 
tested 

ND 

LOCARS 

— 

Beginning  location  of  intersect 
data  for  the  ARS 

ND 

LRl 

Variable  used  in  the  REC,  ELL» 

RECj  TEC,  and  TOR  sections  as  an  | 
index  to  locate  data  in  the 

ASTER  array 

MD 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

LR2 

— 

Variable  used  in  the  REC,  ELL, 
and  TEC  sections  as  an  index  to 
locate  data  in  the  ASTER  array 

ND 

LR3 

Variable  used  in  the  TEC  section 
as  an  index  to  locate  data  in  the 
ASTER  array 

ND 

LS 

Variable  used  in  the  ELL  section 
as  an  index  to  locate  the  length 
of  the  major  axis  from  the  ASTER 
array 

ND 

LSPT 

Variable  used  in  the  ARB  section 
to  represent  the  location  of  the 
intersected  plane  data  in  the 

ASTER  array 

ND 

LSURF 

— — 

Surface  number  of  the  body  where 
the  intersect  occurs  (negative 
if  an  exit  intersect) 

ND 

LV 

— — 

Variable  used  as  an  index  to 
locate  the  coordinates  of  the 
vertex  in  the  ASTER  array 

ND 

LVl 

Variable  used  as  an  index  to 
locate  the  coordinates  of  the  , 

vertex  or  height  vector  in  the 

ASTER  array 

ND 

LV2 

1 

1 

Variable  used  as  an  index  to 
locate  the  coordinates  of  the 
height  vector  in  the  ASTER  array 

ND 

LV3 

— 

Refer  to  LVl 

ND 

M 

— 

Variable  used  as  an  index  to 
locate  data  in  the  ASTER  array 

ND 

MK 

Variable  used  in  the  BOX  section 
as  an  index  to  locate  data  in  the 
ASTER  array 

ND 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

j - 

Definition 

Units 

NBO 

— 

Solid  number  of  the  body  under 
test 

KD 

NEXREG 

Region  number  of  the  region 
following  the  next  intersect 

ND 

R1 

R1 

Variable  used  in  section  TEC  to 
represent  the  length  of  the  major 
radius  of  the  base  ellipse,  and 
in  section  TOR  to  represent  the 
major  radius 

Inches 

R2 

R2 

Variable  used  in  section  TEC  to 
represent  the  length  of  the  minor 
radius  of  the  base  ellipse 

Inches 

R4 

R4 

Variable  used  in  section  TEC  to 
represent  the  length  of  the  minor 
radius  of  the  top  ellipse 

Inches 

1 

SI 

— 

Normal  distance  through  the  region 
that  is  returned  by  Subroutine  G1 

Inches 

SUM 

Variable  used  in  sections  REC  and 
RAW  to  compute  the  dot  product  of 
two  vectors,  and  in  section  ARB 
to  compute  the  sum  of  the  squares 
of  the  X,  y,  and  z  coefficients 
of  the  intersected  plane 

Inches^ 

TAU 

(Rl/R2)^ 

Variable  used  in  section  TEC  to 
represent  the  square  of  the  ratio 
of  the  semi-major  axis  radius  to 
the  semi-minor  axis  radius  of  the 
base  ellipse 

ND 

1 

TEM(3) 

-  - - 

Three -element  array  used  to  store 
the  X,  y,  and  z  coordinates  of  a 
vector 

Inches  i 

TEM1(3) 

Refer  to  TEMC3) 

Inches 

TEHPC3) 

- - 

Refer  to  TEM(3) 

Inches 

TEMP1(3) 

- - 

Refer  to  TEM(3) 

Inches 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

— 

TLK 

n 

Variable  used  in  the  RAW  section 
to  compute  and  represent  the 
scalar  length  of  a  vector  normal 
to  the  slanted  side  of  the  RAW 

Inches 

TWOA 

2a 

Variable  used  in  the  TEC  section 
to  represent  the  length  of  the 
intersection  ellipse  along  the 
semi-major  axis 

Inches 

VF(3) 

Array  for  storing  the  vertex 
coordinates  of  the  TEC 

Inches 

WI(3) 

Coordinates  of  the  direction 
cosines  of  the  height  vector  of 
the  RCC 

Inches 

WN(3) 

WK 

Three-element  array  used  to  store 
the  X|  y,  and  z  coordinates  of 
the  direction  cosines  of  a  unit 
vector 

Inches 

XI(3) 

X 

Three-element  array  used  to  store 
the  Xj  y,  and  z  coordinates  of 
the  intersect  point 

Inches 

XMID(3) 

(H1-H2) 

Three -element  array  used  in  the 

RAW  section  to  represent  the 
y ,  and  z  coordinates  of  the 

H1-H2  vector 

Inches 

XNOS 

Q 

Variable  used  to  represent  a 
constant  multiplier  of  the  direc¬ 
tion  cosines  of  a  ray  and  has  a 
value  of  +1  or  -1  and  is  used  to 
direct  the  normal  to  a  surface 
into  the  body  for  an  entry  inter¬ 
sect  and  away  from  the  body  for 
an  exit  intersect 

m 

XP(3) 

Three-element  array  used  in  the 

RCC  section  to  represent  the  x, 
y,  and  z  coordinates  of  the  inter¬ 
sect  point  projected  onto  the 
height  vector 

Inches 
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Syirf>ol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

I 

— 

Index  for  referencing  the  terap- 
orary  working  storage  section  of 
Subroutine  G1  (LIO) 

ND 

11 

Entering  surface  number  of  an 
intersect  for  a  given  body  from 

LIO 

ND 

12 

— 

Exit  surface  number  of  an  inter¬ 
sect  for  a  given  body  from  LIO 

ND 

13 

Equivalent  of  LOOP  for  a  given 
body  from  LIO.  Not  used  In  Sub¬ 
routine  G1 

ND 

ICODE 

— 

Item  code  of  the  region  before 
the  present  intersect 

ND 

ICODEl 

Item  code  of  the  region  after  the 
present  Intersec  t 

ND 

I  DENT 

■ - 

Space  code  of  the  region  before 
the  present  intersect 

ND 

IDENTl 

— 

Space  code  of  the  region  after 
the  present  intersect 

ND 

IH 

- ■ 

Horizontal  grid  cell  of  the  ray 
(from  the  center  cell) 

ND 

UK  i 

Pointer  for  storing  or  locating 
data  in  the  MASTER-ASTER  array 

ND 

IRP 

Number  of  an  abutting  RPP 

ND  , 

IRPRIM 

— 

Number  of  the  next  region 

ND 

ITEMP 

— 

Pointer  to  data  in  the  MASTER- 
ASTER  array 

ND 

ITY 

Body  type  number  (1-12)  of  the 
current  body 

ND 
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(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

ITYPE 

— 

Unpacked  body  type  number  (1-11) 
of  the  current  body 

ND 

IV 

— 

Vertical  grid  cell  of  the  ray 
(from  the  center  cell) 

ND 

J 

— 

Pointer  to  the  possible  region 
being  entered  by  the  ray 

ND 

J1 

Pointer  to  the  first  region  in  the 
enter  (or  leave)  table  for  the 
current  body 

ND 

J2 

Pointer  to  the  last  region  in  the 
enter  (or  leave)  table  for  the 
current  body 

ND 

LEAV 

— 

Pointer  to  the  region  leaving 
table  for  the  current  body 

ND 

LENT 

— 

Pointer  to  the  region  entering 
table  for  the  current  body 

ND 

LION 

Pointer  to  the  last  location  in 
LIO,  the  temporary  working  storage 
for  Subroutine  G1 

ND 

LOG 

— 

Pointer  to  data  in  the  MASTER- 
ASTER  array 

ND 

LSURT 

Surface  number  for  the  current 
intersect  of  the  current  body 
(negative  if  an  exit  intersect) 

ND 

LTRUE 

Indicator  (0  or  1)  to  Subroutine 
^  from  Subroutine  WOWI  if  point 

XP  is  in  the  region  passed  to 
Subroutine  WOWI 

ND 

NASCT 

Body  number  of  the  current 
intersect 

ND 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

NBO 

— 

Body  number  of  the  body  under  test 

ND 

NC 

— 

Number  of  bodies  in  the  region 
description 

ND 

NEAV 

— 

Number  of  regions  in  the  region 
entering  table 

ND 

NHIT 

— 

Count  of  the  number  of  bodies  hit 
at  a  single  intersect 

ND 

SI 

— 

Distance  the  ray  has  travelled 
into  the  region 

Inches 

SM 

Distance  to  the  next  intersect  of 
the  body  being  tested  that  is 
greater  than  the  distance  travelled 
thus  far 

Inches 

XBD(3) 

x,y,  and  z  coordinates  of  the  ray 
when  an  error  in  Subroutine  G1 
occurred 

Inches 

XP(3) 

x,y,  and  z  coordinates  of  the 
position  of  the  point  on  the  ray 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Definition 

Units 

Pointer  for  locating  and  storing 
data  in  Subroutine  G1  working 
storage,  LIO 

ND 

Body  operator  of  the  body  when 
unpacked  from  the  region  data 
section 

ND 

Body  operator  of  the  body  when 
unpacked  from  the  region  data 
section 

ND 

Pointer  for  locating  body  data 
pointers  for  the  body  being  tested 

ND 

Body  type  number  (1-12)  of  the 
current  body 

KD 

Pointer  to  the  packed  operator 
and  body  number  for  a  specific 
body  in  the  region  under  test 

ND 

Indicator  (0  or  1)  to  Subroutine 
!  G1  if  point  XB  is  within  the 
region 

ND 

Region  body  sequence  number  of 
the  body  being  tested 

ND 

Body  number  of  the  body  under  test' 

ND 

Number  of  bodies  in  the  region 
description 

ND 

Region  body  sequence  number  of  the 
body  being  compared 

ND 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

I 

— 

DO  loop  index  for  representing  one 
of  six  sides  of  the  RPP 

ND 

II  ' 

i 

Index  for  denoting  x>  and 

z  plane  pairs 

ND 

J 

— 

Index  that  represents  the  y,  or 

z  coordinate  of  a  point 

ND 

L 

Index  counter  for  the  number  of  ^ 

sides  intersected 

ND 

LR(L) 

— 

Surface  number  of  intersect  point 

LST(l) 

1 

Integer  that  represents  X  plane 

ND 

LST(2) 

1 

Integer  that  represents  X  plane 

ND 

LST(3) 

2 

Integer  that  represents  Y  plane 

ND 

LST(4) 

2 

Integer  that  represents  Y  plane 

ND 

LST(5) 

3  ' 

Integer  that  represents  Z  plane 

ND 

LST(6) 

3 

Integer  that  represents  Z  plane 

ND 

NBO 

— 

Body  number  of  the  body  under  test 

ND 

PR(L) 

-  1 

Location  in  subroutine  for  RIN 
and  ROUT 

Inches 

TEMP 

^I-^J 

Numerator  of  the  equation  for  dis¬ 
tance  to  the  intersect  point  of 
ray  with  plane 

Inches 

TRY 

Distance  from  ray  origin  to  inter¬ 
sect  point  with  plane 

Inches 

XRY 

iS+wi* 

Intersect  coordinate  on  a  plane 

Inches 

XS(I) 

XSj 

Boundary  coordinate  for  a  given 
plane 

Inches 
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Symbol  or 
Abbreviation 

Equivalent  In 
Math 

Model 

Definition 

Units 

A 

— 

Dot  product  hT  •  HX 

2 

Inches 

CM 

RINi 

Computed  value  for  distance  to 
the  first  intersection  with  the 
box,  RIN 

Inches 

CP 

ROUTi 

Computed  value  for  distance  to 
the  second  intersection  with  the 
box,  ROUT 

Inches 

I 

DO  loop  index  for  computing  the 
face  pair 

ND 

IHl 

Location  In  ASTER  array  which 
contains  hT  coordinates 

ND 

IH2 

Location  in  ASTER  array  which 
contains  HT  coordinates 

ND 

IH3 

— 

Location  in  ASTER  array  which 
contains  HT  coordinates 

ND 

II 

— 

Integer  used  to  compute  the  face 
number  of  the  box 

ND 

IV 

1 

Location  lii  the  ASTER  array  which 
contains  the  vertex  coordinates 

ND 

J 

Index  for  looping  through  the  x, 
y,  and  z  coordinates  for  computing 
the  equation  for  the  distance  to 
the  intersects 

ND 

JA 

— 

X,  y,  or  z  coordinate  of  the  HI 
vector 

Inches 

JV 

— 

X,  y,  or  z  coordinate  of  the  vertex 

Inches 

LI 

— — 

Face  number  for  ray’s  first 
intercept 

ND 

LO 

Face  number  for  ray’s  second 
intercept 

- - - 

ND 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

LOG 

Index  used  to  retrieve  pointers 

ND 

to  the  HI  and  HT  coordinates 

VP 

(^XB)  •  HI 

Dot  product  (i^XB)  •  Hi 

Inches^ 

W 

1 

WE  *  HT 

Dot  product  TO  •  Hi 

Inches^ 
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SUBROUTINE  SPH 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

B 

'  DX-WB 

B  coefficient  of  the  quadratic 
equation  solution  used  to  compute 
RIN  and  ROUT 

j  Inches 

C 

C  coefficient  of  the  quadratic 
equation  solution  used  to  compute 
RIN  and  ROUT 

2 

Inches 

DIS 

b2-c 

Quantity  under  the  radical  of  the 
quadratic  equation  solution  used 
to  compute  RIN  and  ROUT 

Inches^ 

DX,DY,DZ 

- - - 

Xj  y  and  z  coordinates  of  the 
vector  DX 

1 

Inches 

12 

- - 

Pointer  to  the  location  of  the 
radius  in  the  ASTER  array 

ND 

ITEMP 

- - 

Location  in  ASTER  array  which 
contains  the  vertex  coord inates 

ND 

R 

R 

Radius  of  sphere 

Inches 
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LIST  OF 

SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 

Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Uni  ts 

AMBD 

/ 

Value  of  from  the  equation 

tS2  -  2SA''  +  -  0 

Inches 

AMBDA 

X 

Coefficient  of  2S  from  the  quad¬ 
ratic  equation  of  the  RCC 

Inches 

CM 

RIN  intersection  with  a  planar 
surface 

Inches 

CP 

— 

ROUT  intersection  with  a  planar 
surface 

Inches 

DEN 

T 

Coefficient  of  S^  from  the  ! 

quadratic  equation 

ND 

DISC 

Quantity  under  the  radical  of  the 
quadratic  equation  used  to  compute 
RIN  and  ROUT 

9 

Inches 

FI 

- - 

A  quantity  used  to  determine  if 

RIN  or  ROUT  lies  within  the 
boundary  of  the  RCC 

Inches 

H(3) 

if 

X,  y,  and  z  coordinates  of  the 
height  vector  H 

Inches 

HH 

H  '  ¥ 

Dot  product  of  the  height  vector  H 
of  the  RCC 

Inches^ 

I 

— 

Index  that  represents  an  x*  y,  or 
z  coordinate 

ND 

IH 

— 

X,  y,  and  z  coordinates  of  the 
light  vector  H 

Inches 

IRR 

— 

Location  index  for  the  radius  R 
of  the  RCC  in  the  ASTER  array 

ND 

IV 

— 

X,  y,  and  z  coordinates  of  the 
vertex  V 

Inches 

LCM 

Temporary  storage  location  for  the 
surface  number  of  RIN  for  a  planar 
surface 

ND 
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LIST  OF 
C  (Concluded) 

SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 

Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

LCP 

Temporary  storage  location  for 
the  surface  number  of  ROUT  for  a 
planar  surface 

ND 

POT 

(^-7)2 

Portion  of  the  expression  for 
solving  for  u 

Inches^ 

R 

R 

Radius  of  the  right  circular 
cylinder 

Inches 

R1 

X  - 

Temporary  location  in  the  sub¬ 
routine  of  RIN  for  the  quadratic 
surface 

Inches 

R2 

A  + 

Temporary  location  in  the  sub- 
routine  of  ROUT  for  the  quadratic 
surface  , 

Inches 

RSQ 

R^ 

Value  of  radius  squared 

Inches^ 

SD 

YITZ; 

Value  ^ from  the  expreftK-fnn 
s  =  A  + 

Inches 

TOP 

WB-  (3(i-v) 

Portion  of  the  expression  for 
solving  for  A 

Inches 

UM 

Value  of  from  the  quadratic 

equation  tS2-2Sa^+p''  =  0 

Inches 

UMU 

p  =  u' /t 

Inches 

VC3)  1 

V 

X,  y,  and  z  coordinates  of  the 
vertex  V 

Inches 

VPH 

H • (V-XB) 

Quantity  used  in  solving  for 

A  and  p 

2 

Inches 

WH 

WB-H 

Quantity  used  in  solving  fory  and 

A  and  RIN  and  ROUT  on  the  planar ! 
surfaces 

Inches 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

A(3) 

A 

X,  y,  and  z  coordinates  of  the 
semi-major  axis  H 

Inches 

AA 

A*A 

Dot  product  of  the  semi-major  axis 
X 

2 

Inches 

AAAA 

(A- A)  2 

Square  of  the  dot  product  A*A 

Inches^ 

AMBD 

Coefficient  of  2S  from  equation 
tS2+2X'  S+w''  =0 

ND 

AMBDA 

\'h 

Coefficient,  X,  of  2s  from  equa¬ 
tion  s2+2XS-*“m=0 

ND 

B(3) 

B 

X,  y,  and  z  coordinates  of  the 
semi-minor  axis  B 

Inches 

BB 

¥•¥ 

Dot  product  of  the  semi-minor 
axis  'E 

Inches^ 

BBBB 

(B-B)2 

Square  of  the  dot  product  B'B 

Inches^ 

CM 

— 

RIN  intersection  with  a  planar 
surface 

Inches 

CP 

— 

ROUT  intersection  with  a  planar 
surface 

Inches 

DEN 

T 

Coefficient  of  S^  from  the 
quadratic  equation  of  the  REC 

ND 

DISC 

x2-u 

Quantity  under  the  radical  of  the 
quadratic  equation  used  in  solving 
for  RIN  and  ROUT  on  the  quadratic 
surface 

Inches 2 

FI 

Quantity  used  to  determine  if 

RIN  or  ROUT  lies  within  the 
boundary  of  the  REC 

Inches 

H{3) 

H 

X,  y,  and  z  coordinates  of  the 
height  vector  H 

Inches 
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SUBROUTINE  REC 

LIST  OF 

(Continued) 

SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 

Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

HH 

H‘H 

Dot  product,  H*H,of  the  height 
vector  H 

Inches^ 

lA 

— — 

Pointer  to  the  coordinates  of  the 
semi-major  axis  X 

ND 

IB 

— 

Pointer  to  the  coordinates  of  the 
serai-minor  axis  B 

m 

IH 

— 

Pointer  to  the  coordinates  of  the 
height  vector  H 

ND 

IV 

— 

Pointer  to  the  coordinates  of  the 
vertex  V 

ND 

LCM 

Temporary  storage  location  for  the 
surface  number  of  RIN  for  a  planar 
surface 

ND 

LCP 

Temporary  storage  location  for  the' 
surface  number  of  ROUT  for  a  i 
planar  surface 

ND 

LOG 

Index  used  to  retrieve  pointers 
to  the  location  of  the  coordinates 
of  the  REC 

ND 

R1 

X-  yx^-g  i 

Temporary  storage  location  of  RIN 
for  the  quadratic  surface 

Inches 

R2 

X+ 

Temporary  storage  location  of 

ROUT  for  the  quadratic  surface 

Inches 

SD 

Value  "^X^-y  from  the  expression 

S  =  A+V  x2_y 

Inches 

UM 

Value  of  m'’  from  the  Quadratic 
equation  ts2-2SA'^  +  *  0 

ND 

UMU 

y  =y''/T 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  REC  (Concluded)  (SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

V(3) 

T 

X,  y,  and  z  coordinates  of  the 
vertex  V 

Inches 

VlXBl 

^x-^x 

X  component  of  the  vector  V-XB 

Inches 

V2XB2 

Vy-XBy 

y  component  of  the  vector  V-XB 

Inches 

V3XB3 

X  component  of  the  vector  V-XB 

Inches 

VPA 

A-  (v-xi) 

Dot  product  of  the  serai-major  axis 
A  and  the  vector  from  XB  to  the 
vertex  of  the  REC  (V-Xb) 

Inches^ 

VPB 

B* (V-CT) 

Dot  product  of  the  semi-minor  axis 
B  and  the  vector  from  XS  to  the 
vertex  of  the  REC  (V-XB) 

2 

Inches 

VPH 

H* (V-XB) 

Dot  product  of  the  height  vector 

IT  and  the  vector  from  XB  to  the 
vertex  of  the  REC  (V-XB) 

Inches^ 

VPHHH 

H- (V-XB)+H-H 

Sum  of  the  dot  product  H- (V-XB) 
and  the  dot  product  of  the  height 
vector  H*H 

Inches 

WBA 

WB*A 

Dot  product  of  the  semi-major 
axis  A  and  the  direction  cosines 
of  the  ray  WB 

Inches 

WBAWBA 

(\ffi-A)2 

Square  of  the  dot  product 

Inches^ 

WBB 

WB‘B 

Dot  product  of  the  semi-minor 
axis  B  and  the  direction  cosines 
of  the  ray  WE 

Inches 

WBBWBB 

(WB-^)^ 

Square  of  the  dot  product  WB-B 

Inches^ 

WH 

WB'H 

Quantity  used  for  determining  the 
direction  of  the  ray  with  respect 
to  the  planar  surfaces,  and  it  is 
used  in  solving  for  RIN  and  ROUT 
of  the  planar  surfaces 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


SUBROUTINE  TRC 


Symbol  or 
Abbreviation 

1  Equivalent  in 
Math 

Model 

Definition 

Units 

AMBD 

X' 

Coefficient,  X',  of  2S  from 
equation  tS2-2X ' S+y '=0 

ND 

AMBDA 

X'/t 

Coefficient,  ,  of  2S  from 
equation  s2-2XS+ij=0 

Inches 

CM 

Temporary  storage  location  of  RIN 
for  a  planar  surface 

Inches 

CP 

— 

Temporary  storage  location  of 

ROUT  for  a  planar  surface 

Inches 

DEN 

T 

Coefficient,!,  of  S^  from 
equation  tS^-2X ' S+y ’=0 

ND 

DISC 

X^-u 

Quantity  under  the  radical  of  the 
quadratic  equation  used  in  solving 
for  RIN  and  ROUT  on  the  quadratic 
surface 

Inches^ 

FI 

Variable  used  to  determine  if  an 
intersect  lies  within  the  bound¬ 
aries  of  the  TRC 

Inches 

H(3) 

E 

X,  y,  a^d  z  coordinates  of  height 
vector  H 

Inches 

HH 

H‘H 

Dot  product  of  height  vector 
(H-H) 

Inches^ 

IH 

Pointer  to  the  coordinates  of  the 
height  vector 

ND 

INTRl 

— 

Counter  for  counting  the  number 
of  intersects  for  RIN 

ND 

INTR2 

Counter  for  counting  the  number 
of  intersects  for  ROUT 

ND 

INTSEC 

Counter  for  counting  the  number 
of  valid  Intersects 

ND 
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LIST  OF 

SUBROUTINE  TRC  (Continued) 


SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Syndjol  or 
Abbreviation 


IRB 


IRTOP 


Equivalent  in 
Math 
Model 


IV 


LOG 


PVPV 


(V-XB)^ 


Definition 


Pointer  to  the  value  of  the 
radius  of  the  base 

Pointer  to  the  value  of  the 
radius  of  the  top 

Pointer  to  the  coordinates  of 
the  vertex 

Location  of  the  pointers  to  the 
radii  of  the  top  and  bottom  of 
the  TRC 

Dot  product  of  vector  (V-XB) 
(V-XB) 


Units 


ND 


ND 


ND 


ND 


Inches 


R1 

R2 


RB 

RBRTVP 


RT 

RTRB 


SD 


UM 


p'/2X’  or 


/x^-y 

y’ 


Temporary  storage  location  of  RIN  Inches 
or  ROUT  for  the  quadratic  surface 

Temporary  storage  location  of  RIN  Inches 
or  ROUT  for  the  quadratic  surface 


Radius  at  vertex  V 

Portion  of  the  constant  term 
used  in  solving  the  quadratic 
equation 

Radius  at  V+H 


Inches 

Inches 

Inches 


Difference  between  the  radius  of 
the  upper  base  radius  and  the 
radius  of  the  lower  base 


Inches 


Value  M  from  the  expression 

S  -  X+/x2-y 


Inches 


Value  of  the  constant  term  from 
the  quadratic  equation 


ND 


TS2-2X’S+y ’=0 
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LIST  OF 

SUBROUTINE  TRC  fConr.lnripH^ 


SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

UMU 

b 

VC3) 

V 

VlXBl 

V  -XB 

X  X 

V2XB2 

V 

y  y 

V3XB3 

V  -XB 
z  z 

VPH 

(V->CB)  -H 

VPHHH 

(V-XB) -H 
+H*H 

VPW 

(V-3iB)  -  WB 

WH 

WB-H 

Definition 


U=Ij'/t  from  the  equation 

s2-2XS-Hj=0 

X,  and  z  coordinate  of  the 
vertex  V 

X  component  of  vector  (V~XB) 

y  component  of  vector  (V-^) 

z  component  of  vector  (V-XB) 

Dot  product  of  vec_tor  (V-XB) 
and  height  vector  H 

Sum  of  dot  product  of  vector 
(V^XB)  and  height  vector  H  pl^s 
dot  product  of  height  vector  H 

Dot  product  of  vector  (V«XB)  and 
direction  cosines  of  the  ray 

Dot  product  of  direction  cosines 
of  the  ray  and  height  vector  H 


Units 

m 

Inches 

Inches 

Inches 

Inches 

Inches^ 

Inches^ 

Inches 

Inches 


SUBROUTINE  ELL 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 
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- - - - 

Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

units 

A1 

2  H  *  WB 

Vector  dot  product  2  D-j^  ■  WB 

Inches 

A2 

2  D2  •  ™ 

Vector  dot  product  2  D2  •  WB 

Inches 

AA 

E 

Second  term  of  Equation  (64) 

ND 

ALAMl 

X 

Coefficient  of  quadratic  equation 

ND 

used  to  compute  RIN  and  ROUT 

ALAMD 

B^-l 

Intermediate  variable 

ND 

B1 

(Di)2 

Vector  dot  product 

Inches 

B2 

(D2)^ 

Vector  dot  product 

0 

Inches^ 

BB 

A 

First  term  of  Equation  (64) 

ND 

c 

c 

Length  of  ellipsoid  major  axis 

Inches 

DIX] 

X,  y,  and  z  coordinates  of  XB  - 

Inches 

DIY 

D1 

(Foci  A) 

DIZ  1 

D2X] 

X,  y,  and  z  coordinates  of  KB  - 

Inches 

D2Y 

[ 

D2 

(Foci  B) 

D2Z  1 

1 

DISCRM 

X^-u 

Quantity  under  radical  of  quad- 

Inches^ 

ratlc  equation  solution 

FOCIA(3) 

F 

X,  y,  and  z  coordinates  of  one  of 

Inches 

a 

the  ellipsoid’s  foci 

FOG IB (3) 

\ 

X,  Yj  and  z  coordinates  of  one  of 

Inches 

b 

the  ellipsoid’s  foci 

IRR 

— 

Location  where  the  ellipsoid’s 

ND 

major  axis  length  is  stored 

IV 1 

Location  of  the  coordinates  of 

ND 

one  of  the  ellipsoid’s  foci 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  ELL  (Concluded)  (SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

1V2 

Location  of  the  coordinates  of 
the  other  ellipsoid’s  foci 

ND 

SQRTDI 

Square  root  of  (A^-p)  for  solving 
for  RIN  and  ROUT 

Inches 

U 

u 

Coefficient  of  quadratic  equation 
used  to  compute  RIN  and  ROUT 

ND 
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SUBROUTINE  RAW 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Syndjol  or 

Abb reviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

AG 

A2G1  +  A1G2 

Denominator  for  computing  S2 

3 

Inches  j 

ASQ(l) 

Ai 

Dot  product 

Inches^ 

ASQ(2) 

Ai 

Dot  product  H2  *  H2 

Inches^ 

ASQ(3) 

Ai 

Dot  product  H3  •  H3 

Inches^ 

CM 

— 

Intermediate  storage  location 
for  RIN 

Inches 

CP 

— 

Intermediate  storage  location 
for  ROUT 

Inches 

G(l) 

Gi 

Dot  produc  t  WB  • 

Inches 

G(2) 

Gi 

Dot  product  WB  *  H2 

Inches 

GC3) 

Gi 

Dot  produc  t  WB  *  H3 

Inches 

Hl(3) 

^1 

X,  y  and  z  coordinates  of  vector 

Inches 

H2(3) 

I  X,  y  and  z  coordinates  of  vector 

Hi 

Inches 

H3(3) 

% 

X,  y  and  z  coordinates  of  the 
vector  H3 

Inches 

I 

Index  used  to  determine  if  inter^ 
sections  with  sides  1  and  3  are 
possible 

ND 

IHl 

1 

Pointer  to  the  coordinates  of  the 
vector 

ND 

IH2 

Pointer  to  the  coordinates  of  the 
0^2  vector 

ND 

IH3 

Pointer  to  the  coordinates  of  the 

vector 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  RAW  (Concluded)  (SIMULATION  MODEL) 


Symbol  or 

Abb reviatlon 

Equivalent  in 
Math 

Model 

Definition 

Units 

IV 

— 

Pointer  to  the  coordinates  of 
the  vertex 

ND 

K 

Variable  used  to  determine  if 
variables  CP  and  CM  have  been 
updated  with  a  computed  inter¬ 
section  distance 

ND 

L 

Variable  used  to  determine  if 
variables  CP  and  CM  have  been 
updated  with  the  computed  inter¬ 
section  distance 

ND 

LOG 

... 

Index  used  to  retrieve  pointers  to 
the  location  of  the  coordinates 
of  the  RAW 

ND 

PV(1) 

PI 

Dot  product  (JTb  -  V)  • 

Inches^ 

PV(2) 

PI 

Dot  product  ()^  -  V)  •  iT2 

Inches^ 

PV(3) 

Pi 

Dot  product  ^ 

Inches^ 

PV(4) 

-(P1A2+P2A1) 

Part  of  the  numerator  for  com¬ 
puting  S2 

ND 

TEMP 

— 

Intermediate  variable  used  as 
temporary  storage 

Inches 

TOP 

A1A2-P1A2- 

P2A1 

Numerator  for  computing  S2 

ND 

V(3) 

T 

X,  y  and  z  coordinates  of  the 
vector  V 

Inches 

XBlVlj 

XB2V2} 

XB3V3 ) 

XB-\r 

X,  y  and  z  coordinates  of  the 
vector  difference  XB  -  T 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  ARB  (SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

AA  (1,1) 

A1 

Coefficients  of  the  equation  for 

ND 

AA  (1,2) 

Bi 

the  ith  face  of  the  ARB 

AA  (1,3) 

Ci 

AA  (1,4) 

Di 

D 

Di 

The  D  coefficient  of  the  ith 
plane  equation 

ND 

1 

— 

The  1th  face  of  the  ARB 

ND 

j 

— 

The  jth  face  of  the  ARB 

ND 

K 

— 

The  kth  coordinate  (x,  y,  or  z) 

ND 

Ll 

Intermediate  variable  used  to 

ND 

store  the  face  number  containing 
the  first  computed  intersection  i 

L2 

— — 

Intermediate  variable  used  to 

ND 

store  the  face  number  containing 
the  second  computed  intersection 

LC 

1 

— 

Pointer  to  the  coefficients  of 
the  ith  plane 

ND 

LD 

1 

■ - 

Pointer  to  the  constant  term  of 
the  ith  plane 

ND 

LOG 

Index  used  to  retrieve  pointers 
to  the  ARB  constants 

ND 

S 

Si 

Distance  to  the  intersect  for 
the  ith  face  of  the  ARB 

Inches 

SI 

— 

Distance  for  the  first  intersect 
computed 

Inches 

S2 

— — 

Distance  for  the  second  intersect 
computed 

Inches 

SDEN 


Denominator  of  the  equation  for 
computing  the  distance  to  the  ith 
face  of  the  ARB 


ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  ARB  fCnn.L.H,.'  (SI»nUITION  NODEI.) 


Symbol  or 
Abbreviation 


SNUM 


T1 


XP 


Equivalent  in 
Math 
Model 


Xli 


Definition 


Numerator  of  the  equation  for 
computing  the  distance  to  the  ith 
face  of  the  ARB 

Intermediate  variable  used  to  test 
the  equation  for  computing  the 
distance  to  the  ith  face  of  the 
ARB 

Intermediate  variable  used  to  test 
the  equation  for  computing  the 
distance  to  the  ith  face  of  the 
ARB 

X,  y,  and  z  coordinates  of  the 
point  of  intersection  on  the  ith 
plane 


Units 


ND 


ND 


ND 


Inches 


SUBROUTINE  TEC 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

A 

yR3+R1(1-y) 

Semi-major  axis  of  the  intersect ioT 
ellipse 

Inches 

AA(3) 

AA 

X,  y,  and  z  components  of  the 
semi^major  axis  unit  vector  of  the 
base  ellipse 

Inches 

ALPHA 

H-N 

WB-N 

Distance  along  the  ray  from  the 
plane  of  the  base  ellipse  to  the 
plane  of  the  top  ellipse 

Inches 

AMBDA 

X 

Coefficient  of  2S  in  the  equation 
tS2+2AS-I-u=0 

ND 

ASQ 

(yR3+R1(1-y))2 

Square  of  the  semi-major  axis 
of  the  intersection  ellipse 

Inches^ 

B 

YR4+R2(1-7) 

Semi-minor  axis  of  the  inter¬ 
section  ellipse 

Inches 

BB(3> 

BB 

Xj  y,  and  z  coordinates  of  the 
semi-minor  axis  unit  vector  of  the 
base  ellipse 

Inches 

BETA 

(V-XB) -N 

WB-N 

Distance  along  the  ray  from  start 
point  XB  to  plane  of  base  ellipse 

Inches 

BSQ 

(yR4+R2(1-y))^ 

Square  of  the  semi-minor  axis  of 
the  Intersection  ellipse 

Inches^ 

DEN 

T 

2 

Coefficient  of  S  in  the  equation 
tS2+2AS+vi=0 

ND 

DISC 

Value  under  the  radical  of  the 
quadratic  equation  used  in  solving  , 
for  RIN  and  ROUT  on  the  quadratic 
surface 

ND 

F 

Intermediate  variable  used  for 
determining  if  an  intersect  either 
lies  between  the  two  planes,  or 
lies  within  the  ellipse  of  a  plane 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


(SIMULATION  MODEL) 
SUBROUTINE  TEC  (Continued) _ 


Syodjol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

FI 

— 

Distance  from  the  center  of  the 
top  or  base  ellipse  to  the  inter¬ 
section  along  the  A  axis 

Inches 

F2 

Distance  from  the  center  of  the 
top  or  base  ellipse  to  the  inter¬ 
section  along  the  B  axis 

Inches  i 

GAMMA 

(V-XB) -N 

H-N 

Ratio  on  normal  of  height  of  hit 

ND 

H(3) 

H 

X,  y,  and  z  components  of  the 
height  vector  H 

Inches 

HDA 

H*A 

Dot  product  of  the  height  vector 

H  and  the  semi -major  axis  unit 
vector  A  of  the  base  ellipse 

Inches 

HDB 

H’B 

,  Dot  product  of  the  height  vector 

H  and  the  seml^minor  axis  unit 
vector  B  of  the  base  ellipse 

Inches 

HDN 

H-N 

Dot  product  of  the  height  vector 

H  and  the  normal  unit  vector  N 

Inches 

HN(3)  ' 

N 

X,  y*  and  z  components  of  the 
normal  unit  vector  N 

Inches 

I 

Variable  used  to  count  the  inter¬ 
sects  with  the  plane  surfaces 

ND 

lA 

Pointer  to  the  coordinates  of  the 
semi-major  axis  unit  vector 

NB 

IH 

— 

Pointer  to  the  coordinates  of  the 
height  vector 

ND 

IN 

— - 

Pointer  to  the  coordinates  of  the 
normal  unit  vector 

ND 

IRl 

■■■ 

Pointer  to  the  coordinates  of  the 
semi^major  axis  radius  of  the 
base  ellipse 

ND 

574 


TN  4565-3-71  Vol  II 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


,  ,  (SIMULATION  MODEL) 

SUBROUTINE  TEC  (Continued) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

IR2 

— 

Pointer  to  the  coordinates  of  the 
semi-minor  axis  radius  of  the 
base  ellipse 

ND 

IR3 

•  ■ 

Pointer  to  the  value  of  the  ratio 
of  the  base  ellipse  to  the  top 
ellipse 

m 

IV 

— 

Pointer  to  the  coordinates  of  the 

vertex 

m 

H 

’  ■  ‘ 

Temporary  storage  location  for 
surface  number  of  RIN  for  a 
planar  surface 

ND 

LO 

Temporary  storage  location  for 
surface  number  of  ROUT  for  a 
planar  surface 

ND 

LOC 

— 

Pointer  to  the  location  of  TEC 
data  in  the  ASTER  array 

ND 

R1 

R1 

Length  of  the  semi-major  axis 
of  the  base  ellipse 

Inches 

1 

R2 

R2 

Length  of  the  semi-minor  axis 
of  the  base  ellipse 

Inches 

I 

R2SQ 

(R2)2 

Square  of  the  length  of  the  semi- 
minor  axis  of  the  base  ellipse 

Inches^  ; 

R3 

R3 

Length  of  the  semi-major  axis 
of  the  top  ellipse 

1  Inches 

R4 

R4 

Length  of  the  semi-minor  axis 
of  the  top  ellipse 

Inches 

RR 

RR 

Ratio  of  the  larger  to  the 
smaller  ellipse 

ND 

S 

_ 1 

Temporary  storage  location  for 

RIN  and  ROUT  when  verifying 
intersections 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


-rr-o  ,  r,  .  .V  (SIMULATION  MODEL) 

SUBROUTINE  TEC  (Continued) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

SI 

— 

Temporary  storage  location  for 
the  distance  to  the  entry  inter¬ 
sect  for  a  quadratic  surface 

Inches 

S2 

Temporary  storage  location  for 
the  distance  to  the  exit  inter¬ 
sect  for  a  quadratic  surface 

Inches 

SI 

Temporary  storage  location  for 
the  distance  to  the  entry  inter¬ 
sect  for  a  plane  surface 

Inches 

SO 

Temporary  storage  location  for 
the  distance  to  the  exit  inter¬ 
sect  for  a  plane  surface 

Inches 

T 

Temporary  storage  location  used 
to  interchange  the  values  of  two 
variables  that  represent  the  two 
intersections  with  the  quadratic 
surface 

Inches 

T1 

— 

Value  of  the  quadratic  equation 
for  the  smaller  root 

Inches 

T2 

— 

Value  of  the  quadratic  equation 
for  the  larger  root 

Inches 

TA 

(V-3^)  -  A 
+Y(H*A) 

Quantity  used  in  solving  the 
coefficient  of  2S,  X,  and  in 
solving  the  constant  term,  p ,  in 
the  equation  rS2+2AS+p=0 

Inches 

TAI 

otWi-A-li'A 

Quantity  used  In  solving  for  the 
coefficients  of  and  2S  in  the 
equation  Ts2-*-2XS*fu=0 

Inches 

TA2 

(V-5^)  •A-eWB'A 

Quantity  used  in  solving  for  the 
constant  termM  and  the  coefficient 
TS^+2XS-»-y=0 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  TEC  (Continued)  (SIMULATION  MODEL) 


Syujbol  or 
Abbreviation 

Equivalent  In 
Math 

Model 

Definition 

Units 

TAU 

(R1/R2)2 

Square  of  the  ratio  of  the  length 
of  the  semi-major  axis  of  the 
base  ellipse  to  the  length  of  the 
semi-minor  axis  of  the  base 
ellipse 

ND 

TB 

(V-^)  -B+y  (h- B) 

Quantity  used  in  solving  the 
coefficient  of  2S,  X,  and  in 
solving  the  constant  term,  p,  in 
the  equation  tS^+ZAS+u^O 

Inches 

TBl 

aWB-B-H‘B 

Quantity  used  in  solving  for  and 

X  in  the  equation  ts2+2ASH-p=0 

Inches 

TB2 

<V-XB)-B-  WB-B 

Quantity  used  in  solving  for  X  anc 
y  in  the  equation  TS2-f2AS4-]j-0 

Inches 

TR2SQ 

CRI/R2)^CR2)^ 

Quantity  used  in  solving  for  X  anc 
y  in  the  equation  TS^'f2XS+y=0 

Inches^ 

TR4R2 

CR1/R2)^ 

(R2-R4)2 

Quantity  used  in  solving  for  t 
in  the  equation  TS^+2AS^y=0 

Inches^ 

TRR4R2 

(R1/R2)^(R2)^- 
(R1/R2)  (R2) 
(R4) 

Quantity  used  in  solving  for  X  in 
the  equation  tS^+2XS+p=0 

Inches^ 

!  UM 

! 

u 

Value  of  the  constant  term  in  the 
equation  rS^+2XS+u=0 

ND 

VXB(3) 

V-XB 

X,  y,  and  z  components  of  the 
vector  V-XB 

Inches 

.  VXBDA 

1 

1 

(V-XB) * A 

Dot  product  of  the  vector  V-XB 
and  the_semi*major  axis  unit 
vector  A  of  the  base  ellipse 

Inches  ' 

'  VXBDB 

1 

(V-XB) • B 

Dot  product  of  the  vector  V-XB 
and  the_semi-Tninor  axis  unit 
vector  B  of  the  base  ellipse 

Inches 

VXBDN 

(V-3^)  •  N 

Dot  product  of  the  vector  V-XB 
and  the  normal  unit  vector  A 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE  TEC  (Concluded)  (SIMULATION  MODEL) 


Symbol  or 

Abb revlatlon 

Equivalent  in 
Math 

Model 

Definition 

Units 

WDA 

WB*A 

Dot  product  of  the  direction 
cosines  of  the  ray  unit  vector 

WB  and  _the  semi^major  axis  unit 
vector  A  of  the  base  ellipse 

ND 

WBD 

WB-B 

Dot  product  of  the  direction 
cosines  of  the  ray  unit  vector 

WB  and  ^he  semi-minor  axis  unit 
vector  B  of  the  base  ellipse 

ND 

WDN 

WB*N 

Dot  product  of  the  direction 
cosines  of  the  ray  unit  vector 

WB  and  the  normal  unit  vector  N 

ND 

1 
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Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

ALPHA 

a 

Value  of  a  from  matrix  equation: 
a (U-W)+0 (V-W)-S*WB=XB-W 

ND* 

BETA 

6 

Value  of  6  from  matrix  equation: 
a (U-W)+B (V-W)-S •WB=XB-W 

ND 

D 

Denominator  of  matrix  equation: 
a (U-W)+B  <V-W)~S • WB=XB-W 

ND 

DALPHA 

Numerator  for  solving  for  a  in 
matrix  equation: 
a.  (U-W)+B  (V-W)  -  S  -  WB=XB-W 

ND 

DBETA 

— ^  V 

Numerator  for  solving  for  &  in 
matrix  equation: 
a  (U^W ) W )  -*  S  •  WB=XB-W 

ND 

1 

DS 

— — — 

Numerator  for  solving  for  S  in 
matrix  equation: 
a(U-W)+e  (V-V)-S-WB=^XB"W 

ND 

GAMMA 

Value  of  j_from  equation: 

XP=XB+S • WB=a • U+e • V+7 • W 

ND 

HIT(20) 

Array  for  storing  intersect  dis¬ 
tances  (largest  to  smallest) 
while  solving  ray  intersection 
with  AKS 

Inches 

1 

1 

I 

DO  loop  index  for  hit  number 

ND 

ISURF(20) 

Array  for  storing  intersected  tri¬ 
angle  number  of  ARS,  Positive  or 
negative  integer  for  exit  or  entry 
intersect,  respectively 

ND 

1 

IT 

— 

DO  loop  index  for  triangle  number 
of  ARS 

ND 

1 

J 

* - 

Number  of  intersects  save  area 
when  intersect  with  larger  dis¬ 
tance  has  been  found 

ND 

JSURF 

Intersected  triangle  number 

ND 

*Noii-diinensional 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


(SIMULATION  MODEL) 
SUBROUTINE  ARS  /Continued  ">  _ 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

L 

— 

DO  loop  Index  for  clearing  RIN/ 
ROUT  ARS  section  of  ASTER  array 

ND 

LOG 

— 

Pointer  for  data  In  ARS  section  of 
ASTER  array 

ND 

LOCARS 

— 

Pointer  to  beginning  location  of 
ARS  data  In  ASTER  array 

ND 

LOCHTS 

— 

Pointer  to  location  of  hit  table 
in  ASTER  array 

Ll 

— 

Lower  limit  of  DO  loop  for  clear¬ 
ing  hit  table  in  ASTER  array 

ND 

L2 

— 

Upper  limot  of  DO  loop  for  clear¬ 
ing  hit  table  in  ASTER  array 

ND 

NHIT 

— 

Number  of  intersects  of  current 
ray  with  ARS 

ND 

NT 

Total  number  of  possible  combine- 
1  tions  of  points  that  could  form 
triangles  on  ARS  surface 

ND 

ORMAL(3,20) 

ra(3) 

Intermediate  storage  array  for 
storing  normal  coordinates  to 
intersected  triangle 

ND 

S 

S 

Distance  from  current  origin  of 
ray  to  intersected  triangle 

Inches 

UW(3) 

U-W 

,  Array  fjDr_storing  coordinates  of 
vector  U-W  for  computed  triangle 

Inches 

VW(3) 

V-W 

Array  f^r^storing  coordinates  of 
vector  V-W  for  computed  triangle 

Inches 

W(3) 

W 

Array  f£r  storing  coordinates  of 
vector  W  for  computed  triangle 

Inches 

WN(3) 

Array  for  storing  coordinates  of 
normal  vector  to  surface  of  com¬ 
puted  triangle 

Inches 

1 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE  ARS 

(Concluded) 

(SIMULATION  MODEL) 

Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

WXB(3) 

1 

W-XB 

Array  for  storing  coordinates  of 
vector  from  point  W  of  computed 
triangle  to  current  origin  of  ray, 
XB 

Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  TOR  (SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

C0EF(4) 

B ,  C ,  D ,  E 

Four- element  array  for  coefficients 
of  quadratic  equation 

ND 

I 

Index  for  RT  array 

ND 

IN 

— 

Location  of  coordinates  of  normal 
of  torus  In  ASTER  array 

ND 

IRl 

— 

Location  of  major  radius  of  torus 
in  ASTER  array 

ND 

IR2 

— 

Location  of  minor  radius  of  torus 
in  ASTER  array 

ND 

IV 

Location  of  coordinates  of  center 
of  torus  in  ASTER  array 

ND 

LOG 

Location  of  packed  word  with  radii 
of  torus 

ND 

NR 

— 

Number  of  real  intersects  with 
torus 

ND 

R1 

Major  radius  of  torus 

Incihes 

RISQ 

Square  of  major  radius  of  torus 

Inches^ 

R2 

"2 

Minor  radius  of  torus 

Inches 

R2SQ 

2 

^2 

Square  of  minor  radius  of  torus 

Inches^ 

RSAVE 

Scalar  quantity  for  shifting 
(XB-V)  along  ray  to  insure  correct 
solution  of  quartlc  equation 

ND 

RT(4) 

— 

Four-element  array  for  roots  of 
quartlc  equation 

Inches 

T 

Temporary  storage  location  for 
exchanging  values  in  two  other 
storage  locations 

Inches 
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SUBROUTINE  TOR  (Concluded 

Symbol  or  Equivalent 

Abbreviation  Math 

Model 


TERM  (XB-C)^-rJ 


XBCC3) 


XBCDN 


XBCDW 


(XB-C) 


(XB-C) *N 


(XB-C)-WB 


XBCXBC  (XB“C)^ 


XN(3) 


OF  SYMBOLS  AND  ABBREVIATIONS 
^  (SIMULATION  MODEL) 


Definition 


Intermediate  value  for  solving 
coefficients  of  quart ic  equation 

Dot  product  of  normal  with  direc¬ 
tion  cosines  of  ray 

Coordinates  of  vector  from  center 
of  torus  to  ray  origin 

Dot  product  of  vector  from  center 
of  torus  to  ray  origin  with 
normal  to  torus 

Dot  product  of  vector  from  center 
of  torus  to  ray  origin  with 
direction  cosines  of  ray 

Dot  product  of  vector  from  center 
of  torus  to  ray  origin  with  itsel: 

Coordinates  of  unit  normal  vector 
of  torus 


Inches 


Inches 


Inches 


Inches 


Inches 


Inches^ 
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SUBROUTINE  QRTIC 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

A 

Ij 

-  b  +  2w 

2 

Square  root  of  coefficient  of  ^ 
of  biquadratic  equation 

ND 

ASQ 

2 

^  -  b  +  2w 

4 

2 

Coefficient  of  x  of  biquadratic 
equation 

ND 

B 

Square  root  of  constant  term  of 
biquadratic  equation 

ND 

BSQ 

Coefficient  of  constant  term  of 
biquadratic  equation 

ND 

C(4) 

a,b  ,Ctd 

Coefficients  of  quartlc  equation 

ND 

CISQ 

a2 

3 

Square  of  coefficient  of  x  of 
quartlc  equation 

ND 

DISC 

See  Equations 
(203)  and  (204) 

Discriminate  of  quadratic 

Equations  (203)  and  (204) 

Inches^ 

I 

— 

DO  loop  index  for  number  of  roots 
from  cubic  equation 

ND 

N 

— 

Number  of  real  roots 

ND 

NN 

— 

Number  of  real  roots  in  cubic 
equation 

ND 

RC4) 

"'1.2, 3, 4 

Array  for  storing  roots  of 
quartlc  equation 

ND  1 

REAL 

-f  +  e 

2 

Real  part  of  quadratic  eoiiation 

Inches 

ROOT 


Real  root  of  cubic  equation 


ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE  QRTIC  (Concluded) MODEL) 


Symbol  or 
Abbreviation  ^ 

Equivalent  In 
Math 

Model 

Definition 

Units 

RR(3) 

— 

Three- element  array  with  roots 
of  cubic  equation 

ND 

SQROOT 

yjmsc 

Radical  part  of  quadratic  equation 

Inches 

T 

2 

®  k 

4  ■  ^ 

Part  of  ASQ 

ND 

TWOAB 

1 

aw  ^  c 

Coefficient  of  x  of  biquadratic 
equation 

ND  , 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  CUBIC  (SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

A 

3- _ 3 _ 

Expression  for  solving  the  cubic 
equation  for  one  real  root  and 
two  conjugate  complex  roots 

ND 

AB 

A  +  B 

Expression  for  solving  the  cubic 
equation  for  one  real  root  and 
two  conjugate  complex  roots 

ND 

ACU 

Quantity  under  the  radical  of  A 

ND 

B 

3  ^ 

/- 1  -  ^ 

Expression  for  solving  the  cubic 
equation  for  one  real  root  and 
two  conjugate  complex  roots 

ND 

BCU 

Quantity  under  the  radical  of  B 

ND 

C 

a,  b,  or  c 

2 

Coefficients  of  x  ,  x,  and  the 
constant  term 

ND 

CISQ 

a2 

2 

Square  of  the  coefficient  of  x 

ND 

C3 

a 

3 

Value  of  the  constant  term  of  the 
cubic  equation 

ND 

DISC 

4p^  +  27q^ 

Expression  for  solving  for  Q 

ND 

HALFQ 

q/2 

One-half  the  value  of  Q 

ND 

N 

Integer  variable  that  represents 
the  number  of  real  roots  in  the 
cubic  equation 

ND 

P 

2 

b-f 

Expression  for  solving  for  Q 

ND 

PHI  3 

<J)/3 

One-third  the  angle 

Radians 

Q 

/  ,  .2 

\ 3/  {2/ 

Expression  used  to  solve  for  A 
and  B 

ND 
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SUBROUTINE  CUBIC  (Concluded) 


Sytobol  or  Equivalent  in 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Abbreviation 


Math 

Model 


Definition 


Uni  ts 


Argument  for  passing  real  root 
cubic  equation 

Argument  for  passing  real  root»  or 
real  part  of  complex  root 

Argument  for  passing  real  root,  or 
Imaginary  part  of  complex  root 


SQROOT 


f-  p/3 


Expression  used  to  solve  for  A 
and  B 

Expression  for  solving  for  three 
real  roots  with  two  equal  roots 


2/*  p/3  Expression  for  solving  for  two 

equal  roots  when  there  are  three 
real  roots 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


SUBROUTINE  UN2 


Symbol  or 

Abb  reviatlon 

Equivalent  in 
Math 

Model 

Definition 

Units 

13 

— 

Packed  word  from  the  Lth  word  of 
the  MASTER  array 

ND 

J1 

Integer  data  item  in  the  15  bits 
previous  to  the  last  15  bits  of 
the  two-item  packed  word 

ND 

J2 

Integer  data  item  in  the  last 

15  bits  of  the  two-item  packed 
word 

ND 

L 

Pointer  to  the  location  in  the 
MASTER  array  of  the  packed  word 

ND  ' 
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SUBROUTINE  UN3 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Definition 


Packed  word  containing  only  J1 
and  J2  after  J3  has  been  shifted 
out 

Packed  word  from  the  Lth  word  of 
the  MASTER  array  , 

Integer  data  item  in  the  six  bits 
previous  to  the  six  bits  of  J2 

Integer  data  item  in  the  six  bits 
previous  to  the  last  15  bits  of  J3 

Integer  data  item  in  the  last  15 
bits  of  the  packed  word  I 

Pointer  to  the  location  in  the 
MASTER  array  of  the  packed  word 
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SUBROUTINE  OPENK 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 


Equivalent  la 
Math 
Model 


Definition 


Packed  word  containing  only  J1 
and  J2  after  J3  has  been  shifted 


Packed  word  from  the  Lth  location 
of  the  ITR  array 

12  bits  of  the  left  integer  data 
item  of  the  packed  word 

Middle  12  bits  of  the  Integer  data 
item  of  the  packed  word 

Integer  data  Item  in  the  last  12 
bits  of  the  packed  word 


Pointer  to  the  location  in  the 
ITR  array  of  the  packed  word 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  RAN  (SIMULATION  MODEL) 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE  URAN31 


Symbol  or 
Abbreviation 


Equivalent  in 
Math 
Model 


(SIMULATION  MODEL) 


Definition 


Temporary  fixed  point  storage 
location  for  computing  the  random 
number 

Integer  variable  that  represents 
the  argument  of  the  function 

Temporary  integer  storage  location 
used  for  computing  the  random 
number 


URAN31 


Value  of  the  random  number 
between  zero  and  one 
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SUBROUTINE  CROSS 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Definition  Units 


Three-element  array  for  the  Inches 

coordinates  of  the  resultant 
vector  from  the  cross  product  of 
two  other  vectors 

Three-element  array  for  the  Inches 

coordinates  of  the  first  argument 

vector 

Three-element  array  for  the  Inches 

coordinates  of  the  second  argument 
vector 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  DOT  (SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

DOT 

— 

Resultant  scalar  quantity  from 
the  dot  product  of  two  vectors 

Inches^ 

FIRSTC3) 

Three-element  array  for  the 
coordinates  of  the  first  argument 
vector 

Inches 

SECOND (3) 

Three-element  array  for  the 
coordinates  of  the  second  argument 
vector 

Inches 

LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  XDIST  (SIMULATION  MODEL) 


Symbol  or 
Abbreviation 


Equivalent  in 
Math 


Definition 


XDIST 


Model _ 

-  Distance  between  the 

points 


Units 


two  given 


Inches 


XSUM 


Temporary  storage  area  for  sum¬ 
ming  the  coordinate  distances 
between  the  two  points 


Inches 


2 


XA(3) 

XB(3) 


Three-element  array  for  the 
coordinates  of  the  first  point 

Three-element  array  for  the 
coordinates  of  the  second  point 


Inches 


Inches 
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SUBROUTINE  DCOSP 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Definition 


Scalar  distance  between  points 
XA  and  XB 

Three-element  array  for  the 
direction  cosines  or  unit  vector 
coordinates  of  the  vector  from 
point  XA  to  XB 

Three -element  array  for  the 
coordinates  of  the  first  point 

Three-element  array  for  the 
coordinates  of  the  second  point 


Inches 


Inches 


Inches 


Inches 


TN  4565- 3-71  Vol  II 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


(SIMULATION  MODEL) 

SUBROUTINE  TROPIC 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

CSPHI 

— 

Cosine  of  a  random  angle  ^ 

ND 

CSTHT 

— 

Cosine  of  a  random  angle  0 

ND 

SNPHl 

- - 

Sine  of  a  random  angle 

ND 

SNTHT 

Sine  of  a  random  angle  6 

ND 

T 

Sum  of  the  squares  of  two  random 
numbers  that  is  less  than  or  equal 
to  1.0 

ND 

WP(3) 

Three-element  array  containing  the 
direction  cosines  of  a  random 
angle 

ND 

XI 

— 

Random  number  between  zero  and  one 

ND 

X2 

Random  number  between  zero  and  one 

ND 

XIS 

— 

Square  of  random  number  XI 

ND 

X2S 

Square  of  random  number  X2 

ND 
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Symbol  or 
Abbreviation 


Equivalent  in 
Math 
Model 


Definition 


Number  of  the  RPP 

Location  of  the  pointer  data  for 
a  given  side  of  a  given  RPP 

Location  of  the  coordinate  for  a 
given  side  of  a  given  RPP 

Surface  nuinber  of  the  RPP 


Coordinate  of  the  given  side  of 
the  given  RPP  number 
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SUBROUTINE  RPP2 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 


Equivalent  in 
Math 
Model 


Definition 


Units 


LOCAT 


LSURF 


Index  for  a  DO  loop  to  test  each 
potential  abutting  RPP 


Number  of  a  potential  abutting  KPP 
unpacked  from  the  left  position  of 
the  two- item  packed  word  in  the 
abutting  RPP  section 


Number  of  a  potential  abutting  RPP 
unpacked  from  the  left  position  of 
the  two^-item  packed  word  in  the 
abutting  RPP  section 


Number  of  the  potential  RPP,  or 
the  RPP  number  returned  to  the 
calling  program 


Index  to  represent  an  x,  y,  or  2 
coordinate  In  a  DO  loop 


Variable  used  to  represent  the 
location  of  abutting  RPP’s  in  the 
MASTER  array 


Pointer  to  the  location  of  the 
abutting  RPP  list  in  the  MASTER 
array 


Control  variable  used  to  prevent 
a  specific  intersect  coordinate 
from  being  tested  with  its 
respective  plane  coordinate 


Surface  number  of  the  RPP  where 
the  intersect  occurs 


Control  integer  used  to  determine 
which  of  two  packed  abutting 
RPP’s  is  to  be  tested 


Total  number  of  abutting  EPP*s 


Coordinates  of  the  intersect 


Inches 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  (VOLUM)  {SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units  1 

DOD 

Horizontal  dimension  of  cell  on 
front  plane  □£  box 

Inches 

DSP 

— 

Vector  from  first  ray  origin  to 
second  ray  origin  In  given  column 

Inches 

DT 

— 

Vertical  dimension  of  cell  on 
front  plane  of  box 

Inches 

IRl 

Region  number  of  pre-computed 
volume 

ND 

IRJ 

— 

Region  number  save  area 

ND 

IRPRIM 

— 

Region  number  returned  by  Sub¬ 
routine  G1 

ND 

J 

Index  for  column  or  plane  number 

ND 

ji 

Index  for  x,  y,  or  z  coordinate 

ND 

JIR 

_ — 

Region  number  save  area 

ND 

Jl 

Humber  of  vertical  cells 

ND 

N2 

— 

Number  of  horizontal  cells 

ND 

SI 

— 

Distance  to  next  region  returned 
by  Subrout ine  G1 

Inches 

SilMV 

Sum  of  the  computed  volumes  in  box 

Inches^ 

TESTDN 

Vertical  distance  to  next  region 

Inches 

TESTOV 

— 

Horizontal  distance  to  next  region 

Inches 

VASTER 

1 

Array  for  accumulating  ray  distance 
through  each  region  within  box 

Inches 

VR 

Pre-computed  volume  of  given  region 

Inches^ 

WAB 

Direction  cosines  of  vector  from 
plane  to  back  plane  of  box 

m 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE  (VOLUM)  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

WOB 

— 

Direction  cosines  of  horizontal 
vector  from  vertex  across  front 
plane  of  box 

ND 

WTB 

Direction  cosines  of  vertical  vec¬ 
tor  from  vertex  across  front  plane 
of  box 

ND 

XA(3) 

— 

Coordinates  of  point  on  back  plane 

Inches 

XO(3) 

Coordinates  of  lower  left  corner 
of  front  plane  of  box 

Inches 

XP(3) 

— 

Coordinates  of  intersect  with 
next  region 

Inches 

XPERC 

Percent  error  of  computed  volume 
and  pre-computed  volume  of  given 
region 

ND 

XT(3) 

— 

Coordinates  of  upper  right  corner 
of  front  plane  of  box 

Inches 

XTEMP(3) 

— 

Temporary  storage  for  direction 
cosines 

ND 

XV(3) 

— 

Coordinates  of  vertex  of  box 

Inches 

XVDIS 

Distance  from  front  plane  to  back 
plane  of  box 

Inches 
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(SIMULATION  MODEL) 
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Sytabol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

A 

A 

Azimuth  angle  of  grid  plane 

Degrees 

AR 

a 

Azimuth  angle  of  grid  plane 

Radians 

AREAC 

Area  of  cell  in  grid  plane 

Inches^, 
Feet  , 
Centi- 
meters^,  or 
Meters^ 

AREAUN 

— - 

Measurement  units  of  presented 
area 

ND 

BLANK 

_ — 

Two  Hollerith  blanks 

ND 

CA 

cos  a 

Cosine  of  azimuth  angle 

ND 

CL 

cos  6 

Cosine  of  elevation  angle 

ND 

CELL  2 

D/2 

Half  the  dimension  of  a  cell  side 

Inches , 

Feet , 

Centi¬ 
meters,  or 
Meters 

CELLUN 

1 

1 

Measurement  units  of  cell 

ND 

C0NVRT(1,1) 

Conversion  factor  for  converting 
square  inches  to  square  inches 
(-  1) 

ND 

1 

i 

CONVRT  (1,2) 

Conversion  factor  for  converting 
square  inches  to  square  feet 
(=  0,006944444444444) 

ND 

C0NVRT(1,3) 

Conversion  factor  for  converlng 
square  inches  to  square  centi^ 
meters  («  6.451625806) 

ND 

C0NVRT(1,4) 

l 

Conversion  factor  for  converting 
square  inches  to  square  meters  i 

(=  0.0006451625806) 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE  AREA  (Continued)  (SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

C0NVRT(2,1) 

Conversion  factor  for  converting 
square  feet  to  square  inches 
(=  144) 

ND 

CONVRT(2,2) 

Conversion  factor  for  converting 
square  feet  to  square  feet 
(=  1) 

ND 

CONVRT(2,3) 

Conversion  factor  for  converting 
square  feet  to  square  centimeters 

C=  929.0341161) 

ND 

CONVRT(2,4) 

Conversion  factor  for  converting 
square  feet  to  square  meters 
(=  0.09290341161) 

ND 

CONVRTO.l) 

Conversion  factor  for  converting 
square  centimeters  to  square 
inches  (=  0-15499969) 

ND 

CONVRT(3,2) 

Conversion  factor  for  converting 
square  centimeters  to  square  feet 
(=  0.001076386736) 

ND 

CONVRT(3,3) 

*** 

Conversion  factor  for  converting 
square  centimeters  to  square 
centimeters  1) 

ND 

C0NVRT(3,4) 

Conversion  factor  for  converting 
square  centimeters  to  square 
j  meters  (=  0  -0001) 

ND 

C0NVRT{4.1> 

Conversion  factor  for  converting 

1  square  meters  to  square  Inches 
!  (=  1549.9969) 

ND 

CONVRT(4,2) 

Conversion  factor  for  converting 
square  meters  to  square  feet 

C=  10,7636736) 

ND 

CONVRT(4,3) 

Conversion  factor  for  converting 
'  square  meters  to  square  centi¬ 
meters  (=  10000) 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


,  ,  (SIMULATION  MODEL) 

SUBROUTINE  AREA  (Continued) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

CONVRTC4,4) 

■ 

Conversion  factor  for  converting 
square  meters  to  square  meters 
(=  1) 

ND 

E 

E 

Elevation  angle  of  grid  plane 

Degrees 

ENGTH 

ENGTH 

Back^off  distances  or  origin  from 
grid  plane 

Inches 

ER 

e 

Elevation  angle  of  grid  plane 

Radians 

GROUND 

— 

z  coordinate  of  ground  level 

Inches 

HHBB 

— 

Two  Hollerith  blanks  for  testing 
for  blank  fields  on  card 

ND 

HHCM 

Hollerith  code  for  centimeters 
(CM) 

ND 

HHFT 

— 

Hollerith  code  for  feet  ( FT) 

ND 

HHIN 

— 

Hollerith  code  for  inches  (IN) 

ND 

HHMB 

— 

Hollerith  code  for  meters  (M) 

1  ND 

I 

Index  for  representing  component 
code 

ND 

I  CODE 

Component  code  of  region  material 

ND 

1 

I  DENT 

— 

Identification  code  of  region 
material 

ND 

IH 

Random  number  for  computing 
random  horizontal  point  in  given 
cell 

ND 

II 

Variable  for  representing  row 
number  of  grid  cell 

ND 

IRFRIM 

— 

Next  region  number  returned  by 
Subroutine  G1 

ND 

IRSTRT 

— 

Starting  region  of  grid  rays 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 


SUBROUTINE  AREA  (Continued)  (SI^^JLAT10N  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

IV 

Random  number  for  computing 
random  vertical  point  in  given 
cell 

ND 

J 

— 

Variable  for  representing  column 
number  of  grid  cell 

ND 

KK 

— 

Index  for  representing  cell 
number  of  grid 

ND 

KL 

— 

Total  number  of  cells  in  grid 

ND 

LAREA 

— 

Beginning  location  of  presented 
areas  indexed  by  component  code 

ND 

LAREAl 

- - 

Last  location  of  presented  areas 
indexed  by  component  code 

ND 

LOC 

— - 

Location  of  specific  data  in 
MASTER-ASTER  array 

ND  . 

NHIT 

Number  of  rays  that  hit  target 

ND 

NSTART 

— 

Beginning  grid  cell  number 

ND 

NX 

N 

X 

Number  of  horizontal  cells  in 
grid  plane 

ND 

NY 

N 

y 

Number  of  vertical  cells  in  grid 
plane 

KD 

RADIAN 

R 

One  degree  expressed  in  radians 

Radians 

SA 

Sin  a 

Sine  of  azimuth  angle 

ND 

SE 

Sin  0 

Sine  of  elevation  angle 

ND 

SUMA 

1 

Total  presented  area  of  target 

Inches^, 
Feet^ , 
Centl- 
meters^ , or 
Meters^ 

TYPEUN(4) 

1 

Four-element  array  containing 
Hollerith  codes  IN,  FT,  CM,  and 

M,  respectively 

ND 
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LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
SUBROUTINE  AREA  (Concluded)  (SIMULATION  MODEL) 


Symbol  or 
Abbreviation 

Equivalent  in 
Math 

Model 

Definition 

Units 

WB(3) 

WB 

Direction  cosines  of  ray 

ND 

WP(3) 

— 

Isotropic  random  direction  cosines 
returned  by  Subroutine  TROPIC 

ND 

XB(3) 

XB 

Coordinates  of  origin  of  ray 

Inches 

XBS(3) 

X 

P 

Coordinates  of  original  position 
of  origin  on  grid  cell  before 
back-off 

Inches 

XSHIFT 

XSHIFT 

Distance  target  origin  and  grid 
plane  center  is  effectively 
shifted  in  the  X  direction 

Inches 

YSHIFT 

YSHIFT 

Distance  target  origin  and  grid 
plane  center  is  effectively 
shifted  in  the  Y  direction 

Inches 

ZSHIFT 

ZSHIFT 

Distance  target  origin  and  grid 
plane  center  is  effectively 
shifted  in  the  Z  direction 

Inches 
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TESTG 


LIST  OF  SYMBOLS  AND  ABBREVIATIONS 
(SIMULATION  MODEL) 


Symbol  or 
Abbreviation 


Equivalent 

Math 

Model 


IRAY 


IRFIN 

IRSTRT 

NRAYS 

RANGE 

SI 

XBF 

XP 


in 


Definition 


Units 


Index  for  number  of  rays  to  be 
processed 

Region  number  of  end  point 

Region  number  of  starting  point 

Total  number  of  rays  to  be 
processed 

Distance  between  two  points 

Distance  to  next  region 

Coordinates  of  end  point 

Coordinates  of  intersect  with  next 
region 


ND 

ND 

ND 

ND 

Inches 

Inches 

Inches 

Inches 
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SECTION  IV 
SOURCE  LISTING 


SIMULATION  SOURCE  DECK 

This  section  contains  a  listing  of  the  FORTRAN  statements  that  make  up 
the  program  deck  (Figures  74  through  114) . 


SAMPLE  PROBLEM  DECK 

Figure  115  shows  a  listing  of  the  sample  problem  deck  data.  A  descrip¬ 
tion  of  the  sample  problem  is  contained  in  Volume  I,  User  Manual. 
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dimension 

DIMENSION  MASTERtioDOO) 

COMMON  aster tlOOOO* 

CnMMON/OEOM/LBASE,RlNtROUT.LHl»LRO»PlNr*ICRR*OlST 

COMMON/UNcOER/NRPPiNTRlPtNSCAUtNBOoV*NRMAKtLTRIP«LSCAE«i>RE6D* 

1  LOATA*LRlN«t.ROT«UlOtLOCOA*IlS*l30*LBODYtNASCtKLOOP 
(;nMMON/TEMPOR/XS(A)  tXlfc)»lX(el  t  IT  ( lO »  *  1 A  (9>  •  IN  W> 
CnMMON/MAl.T/LlflFO,NGlEfl«  .  .... 

COMM0N/c0NTRL/lTESTQ*IRAT5K»lCNTLV«lV0t0M»IM0T»lT*PE8*N0»lYES 

common/engeom/legeom 

CriHHON/SIZC/NDO 

pOMMON/ERR/IERRo 

COMMON/RANOM/IRANDM 
COUIV*LENcE  (ASTERtMASTgR) 

c 

901  F0RMAT{1M1»32MTHIS  IS  THE  11  APR  69  VERSION  OF  / 

1  IH  .32HTHE  BRLESC  M^Olc  PROqR*m  •••*•♦  //j 

902  format  (UH  BEGIN  EXECUTION) 

9q3  FORMATlSlloJ 

904  format (1Ho.10X»A2MTHE  TAPE  *  USED  FUR  THIS  RUN  HAS  THE  TITLE  / 

1  10A6/t 

905  FORMAT(iHotiOMENTCR  GENI) 

906  FORMATnHO.lZHLEAVlNQ  GENI) 

907  format (iMotsSHTERMlNATION  ON  GEOMETRY  INPUT  ERROR , sX»5HlERR« * I5I 
90H  FORMAT (jHltiSMTESTO  IS  CALLED) 

909  format  I 1H0*13HLEAV1NG  TEST6> 

910  FORM*T( IMlfZAHREOlON  TYPE  OATa  FOLLOwSt  9Xt(,MLlHFO«»IlO/ 

1  IM  ,6HHCGION,6X,AHcOOE>6X**MTYPEt5XiHMOEScRIPtlON/) 

9ij  format  (3Ho»loXi6A6> 

912  FORMAT(I6*I10»I9>7X«6A6> 

913  format ( iH0t23MNO  ROOM  fOR  ID£NT  TabLE «5X • 7HLE0E0M«f l7« jXt 
1  6HLIRF0»»1T) 

914  format (IMOtSZHWRITE  TaPE  1  OPTION  iS  SPEcIFIEdI 
9i;  FOfiMATtI5il0X*l0A6l 

916  FORMATdHltUMENTER  YOLUM) 

917  format (iHOtlSHLEAVlNQ  VOLUM) 

91R  FOfiMATtlH  ,6H  999.9) 

919  FORMaTIimi.IIHEND  OF  CaSC«I5I 

929  format tlHi 132HNUM  OF  ASPECT  ANGLES  FOR  GRID  lS*l5) 

927  FORMATdOIS) 

9?*  format tiMl*32HNUM  OF  ASPECT  ANGLES  FOR  AREA  IStlS) 

929  format (lHO»31MNUMBEfl  OF  G1  ERRORS  ENCOUNTERED, 15) 

930  format {iMo*3iMNUMaER  OF  0  items  encountered* 15> 

999  FORMATllHotiOHENQ  OF  RUN) 

C 

IRAnDmmO 
MRITE  t6t901> 

WRITE  (6»9oa> 

81  initialize  CONSTANTS 

c 

II5«2*«15 

I30M2*»30 

PINF-1,oE50 

NOmo 

IYESmI 

IEHP"fl 


FIG.  74.  Source  Listing,  MAIN  Routine 
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C 

C3 

C 


i.eASE»i 

KLOOP*o 

NDQ»IooO0 

ENTER  AND  initialize  OPTION  PaRAHETCrS 

READ  <9t903>IRDTP4flWRTP4tlTE$TO«lRAYSK*lCAROltUNTLVaVOLUM 

irURDTP4.NE.0>  IR0TP4*ITE5 

irUNRTP4.NE.O)  iwrtpa-ites 

IF<ITesTG.NE.o>ITeST04IVES 

IF  (IRAYSK.NE.0)IRAYSK«1VES 

IF(1CaRD1*NCiO) ICaRdI'ITES 

IF(IENTLV.NE.O) IEnTLV^IYES 

IFdVOLUM.NE.Ot  IVOLUMbIYES 

enter  target  geometry  from  Input  taPe  a 
IF IIRUTP4.EQ>N0)  goto  10 

REaO  (4)  LBASEiLEGEQm.NOO* < A5TEH(L) »N1>Q) »LbOOY»LREGOiLRIN 

I  LfiOT*LIO.LlRFO.NRPP.NBOOY«NRMAAtPlNF .IT 
write  (6*904) (1T(I> *1*1*10> 

GOTO  20 


C4 

C 


c 

C9 

C 


clear  master-aster  array 

10  00  11  ImLBASE.NOQ 
A$TER(I)>0. 

11  continue 

enter  and  process  Target  geometry  vu  sugroutine  oeni 

WRITE  (6.905) 

CALL  OE)^l 
WRITE  (6.906) 

IF(IERR.LE.Q)G0T0  12 
WRITE  (6.90T>1£RR 
STOP 


C6  WRITE  OUT  TARGET  GEOMETRY  TO  OUTPUT  TAPE  4 
C 

12  !F(1WRTP4.EQ.N0)G0T0  20 

white  (4)  uRASE.LEGEOM.NDQ. (ASTtH (L* .L»l .NUO) .LBOuY.LREGD.LRIn. 
1  LHOT.LIO.lIRFO.nRPP.NHOOY.NHMAX.PInFi IT 


c 

CT  CALL  sugroutine  TESTO 

^  20  IFIITCSTG.EQ.NOJGOTO  30 

WRITE  (6t9oG) 

CALL  TeSTQ 
WRITE  (6.909) 

ITEST04N0 

C 

CR  CALL  subroutine  VOLUM 

C 

30  IF (IVOlUM.EO.NOiGOTO  40 
WRITE  (6*916) 

CALL  VOLUM 


FIG.  74.  (Contd.) 
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C 

O 


WWITE  (6*9171 
TVOi.UM»NO 


format  -  /  icooe  /  IDENT  / 


region  identification  data 
IRN  ■  REGION  number 
ICOOE  ■  ITEM  CODE 

lOENT  •  SRacE  code  AND  SPECIAL  IDENTIFICATION 

SPECIAL  identification  ■  10 *20 *30 * *0 '^0 *P0 *70 • 8o»9o 
NO  lOENT  COOE*o  SKIRT»10  ARmORm^o  TAM6eT»3o 
space  codes  EKTeHIOR  volume  “1 

Interior  volume  ■  -i*i-9*,*. *91-99 


AO  LtRFO«NDQ-NRMA*-lo 

!*■  (lIRFO.GT.LEGEOMJGOTO  41 
write  (6»913)LEGE0m,l,IHF0 
STOP 

41  WRITE  (6»9io)LIPFO 


C 

CIO  ENTER  and  store  REGION  ID  OATa 
C 

42  READ (5,911) IHN, tCODE, lOENT, (A(!),:«l,6) 

IFtlRN.LE.olGOTO  50 

write  (6*9i2) IRn.ICODE* lOENT. tAtlt.I-itEl 
IOENTmIDENT*! 

K«LIRFO*IRN-i 

master (K)«lcOnE« I i5*InENT 

GOTO  42 

c 

Cll  NOAA  •  number  of  aspect  ANGLES  FQR  SUaROUTlNE  GRID 

C  ITaPEB  »  SUPPRESS  printer  option 

C  IWOT  »  WRITE  OPTION  FOR  TaPE  i 

C  NAREA  ■  number  Of  aspect  ANGLES  EQR  SUBROUTINE  AREA 

C 

50  READ  (5.927)N0AA, IWOT. ITAPEB. NAREA 
IF(IWOT.NE.O) IWOTbITES 

IF  (  ITaPEB.EQ.oJGOTO  51 

ITAPEBbNO 

GOTO  52 

51  ITAPEBmIYES 

52  IF(  IWOT.EQ.NOIgOTO  60 
REWIND  1 

WRITE  (6«9i4) 

wRITE(i.915)N0aa.  (IT(n.I»i.ir)> 

C 

An  IF  (NOAA.LE.oJGOTO  70- 
WRITE  t6*925lN0AA 

Cl2  call  SUBROUTINE  GRID  FOR  EACH  ASPECT  anGlE 
C 

DO  61  IBI.NOAA 

IERR»0 

IERR0"0 

CALL  BRIO 

IF (IWOT. CO, I YES) write (1.910) 

WRITE  (6.919)1 
WRITE  (6*929) IERR 
write  l6*930>IERRo 
ftl  CONTINUE 
C 


FIG.  74,  (Contd.) 


612 


u  o 


TN  4565-3-71  Vol  II 


70  IPINARCA.UC.OXtOTO  99 
WRITE  l«»92eli^ARCA 

CiJ  CALI  SUBROUTINE  AREA  FOR  EACH  ASPECT  ANdLE 
C 

00  71  laltNAREA 
1€RR»0 
CALL  AREA 
WRITE  t6*919>I 

71  CONTINUE 
C 

99  WRITE  <6f999) 

STOP 

END 


FIG.  74.  (Concluded) 
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subroutine  OENI 

DIMENSION  ITY  (11)  ,  lANIR)  t  lAA  (8)  (20)  tNHOlXll)  t 

I  nOo  »NOH3)  ♦NO?(3)  .OA(3}tTT(3>»TTl{3)»TT2(3> 
dimension  maSTER(10000J 

COMMON  aster(ioooo> 

CnMMON/QE0M/LRASttRlNtR0UT»LRI*L*^0>PlNF»lE«R»0lST 
CnMMON/UNcQEM/NRPPtNTRlPiNScAL*N80DT*NRMAX»LTfllP»LSCAl.*LHEOOt 
1  LOATa*LRINiLROT*L10<LOCDA* IlS>l30*LBODYtNASc»KUOOP 
COMMON/TEMPOR/XSCa)  iX(6)  f  lA(e)  itTtlO)  lUt?)  •  tN(9> 
COMMON/CONrRL/lTESTOtIRAYSKtlENTl.V*lVOUUH*UOT*lTAPEetNO«lYCS 
CftM«ON/SI2E/NOO 
CriMMON/UNCLE/NNt  ic  U> 

CnMMON/RBPP/l.RPPDiLA0UT 

COmMON/ENGEOM/lEGEOM 

Eoui Valence  t aster, MASTER! 

9oi  rORMATdMO.EAHSTART  READING  SOLID  OATAI 
90P  PORMATtloAA) 

R03  FORMAT(iHo,lOA6/) 

904  PORMaT(tIio) 

905  fORMAT(AX,34HNO,  OE  RECTANGULAR  PAHAlLELERIPEDS, I i n/ 

1  4X,14HN0.  Of  solids  tllO/ 

2  AX,34HM4X  no.  OF  REGIONS  »IlOI 

908  fOPNAT(lMo.*5X.32MReCTAN6ULAR  PARALLELEPIPED  INPUT) 

911  fORMAT(lHo,SOX,22HDESCRIPTION  Of  SOlIDS) 

912  fORMAT{3Al.A3»AAf6f lO.S! 

913  fORMAKlHO.AHITYPE  tA3.27H  DOES  NOT  MATCH  MITM  AN  ITT) 

914  FORMAT! 19* lXt3A1.3X.A3*A4*3X*8l5* 

915  fORMAT tI8.lX»3Ai.2X,A3,A4»4X,AFl2.5» 

916  F0RMAT(25X,6F12.5) 

917  format (imo»38HNO  MORE  ROOM  fOH  SOLID  OaTa  LOATARtllO* 

1  5X,5HLeOT«,I10i5X,4HNOO«,I10) 


918  FORMAT! IRQ, 25MF1NISH  READING  SOLID  OaTa> 

919  format (IMO,  SMLRCODiTH  LREGLiTH  LENLVtTH  LRIN.7H  LHOTt 
I  7H  LI0,7M  LE0E0M/l5,6l7) 

920  format !1H1 »36X»23HRe010N  COM0INaTION  OaTa! 

921  fORMAT(l5flX,9{A2,l5M 

922  FORMAT! iH0«3OHeRRoR  IN  OEScPIRTION  Or  RCGlONtlS# 

19H  IN  f IEL0»l2,5X,24M80DY  NUM,QT.NRPp  •  NBOOY) 

923  format !10X,9! 1H(»A2»I5* I H) ilX) ) 

924  fORMAT!lS»2X»9(iH!,I2,15tlH)  .IX)) 

923  format !1H0,30HILLEQAL  OPERATOR  IN  ABOVE  CARO*5X,A>, 

1  9H  IN  flELOtlE) 

928  format (1M0.29MERR0R  IN  REGION  INPUT  lR«fl5,14H  OR  N.OT.NRHaX) 

927  F0RmaT!IH0O9HN0  MORE  ROOM  FOR  REOIOn  OATA  LOATA>fI10, 

I  5Xt4HNDO>,I10} 

928  format (IHOfZGHFINISH  READING  REGION  DATaI 

929  FORMATflAH  ERROR,  REGION* I lo * ISH  1$  Pa«T  Of  ReGIOn»11o) 

930  format  (24M  fiNiSM  CHECKING  REGION  .U) 

931  f0RMAT!iM(H34HN0  MORE  ROOM  fOR  ENTeR  LEA^E  TAbLE'sX* 

I  8HLOATA«»llO,5X,4MNDO"Ilo*SX,4MPASs*l2»5X,3Hlfl«»IlO» 

932  format !1H0»28hTOTaL  ROOM  pOR  GEOMETRY  0ATa»5X, TMLEOiOM*# U) 

933  fORMAT(iHo,5HENTEP»iai6/<23X»i5l6)) 

934  FORMATdH  ,5MLEAVE*18l6/t23X,i5l8)) 

935  f0RMAT!iMi»50XilBMBeOlN  aMRaY  OUTPUT/) 

93A  fORMAT!3(3l6,lX,Ell,A,3M  S  )) 
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937 

936 

940 

941 
94? 


A  PASS  OF  enter  leave  TABLEiIS) 


T0R*SXieH(t2.6T.Rl/) 
TBC*5X»7H«1  «  B?/t 


LOATAfTM  LB0T»7H  LSCaL* 


FORMAT(/t 

format  UMot34HF  IN  ISH 
FnpMATtlOXtSPlO.St 

FORMATtlN0t37RTERMlNATI0N  ON  BAD  REGION  DESCRIPTION) 
format  I IMO tSZHEBROR  IN  DESCRIPTION  Of  BOOT  NUHtiB/ 

1  7H  VECTOR, 3F12.S.24R  IS  NOT  PERPENDICULAR  TO  / 

Z  7H  VECT0R»3F12.5'^T  „  „ 

943  format ( 1MO,27HERROR  IN  DESCRIPTION  Of 

944  FORMAT(1HO,27HERROR  In  DESCRIPTION  OF 

945  FORMaTUHO, SQLBASE, 7N  LRPPD, 

t  7M  LA0UTi7H  LB00T»TH  L80U»7N 

2  7M  LTRIP,7H  NDO/ 15,917) 

944  format tiMi»\7HENTER-LEAVE  TaBLE* 

947  FORMAT(lM0,lH?*,A3)/UlSI 

940  format (1HO,27MERROH  IN  DESCRIPTION  Of  TEC'S*, 

1  4VHHEIGHT  VECTOR  15  PARALLEL  TO  BASE  ELLIPSE) 

data  ITTID ilTVt?) ,ITv{3) .ITY{4).ITT(S) iITV (6) .ITY<7>.ITYt8) 

1  /  3H80X,  3MSPM,  3HRCC,  3HREC,  3MTRC»  jN£LL»  3hHAIA,  3MAHB  / 

data  ITT  (9)  »1TY  <  I0>  •  itt  in ) 

1  /  3MTec.  3HT0R  »  IHARS  / 

Data  Iaa(I) ,IAA(2) ,lAAt3>»IAA(4)»lAA(5>»IAAi6) ,IAAl7) *tAA(8) 

1  /  pH  »  2M0R  •  2H  ft  ,2HR  ,  2HRA  ,  pMAR  »  gM  A  ,  2HA  / 

Data  lANtn  tlANl?) ,1AN(3) ,TAN(4) ,IAN(S) »1aN(6) ,1*^(7) tlANlB) 

1  /  4,  !•  1,  I*  2,  2*  3,  3/ 

DATA  IRL/IM  / 


10 


DO  10  1=1, 
NBOOt  n=o 


11 


C?  ENTER  AND  PRINT  OUT  TITLE  OF  THE  PROBLEM 
C 

WRITE  (6,901) 

READ  (5,902)  tITtn,I"l,10) 

WRITE  (6,903) ( IT( I) , 1«1,10) 

83  ENTER  AND  PRINT  OUT  THE  PROGRAM  COnTROL  PARAMETERS 

^  HEAD (5,904) NRPP,NTRIP,NSCAL,N800Y,nRMAX, IPHIN, IRCHEK 

WRITE (6.9oB)NRPP (NBOOV.nRMAX 


C4  flPP 

c 

WRITE  (6,906) 

LAR-l 

C 

CM  RPP  Data  Input 

^  IF (NHPP,LE.O)OOTO  20 

CALL  RPPINILAR) 
1F{IERR.OT,0)RETUHN 


C 

C7 


L80DY  storage 


reserve  3»(NRPP«N80DY)  wORDS 


/  body  number 

/  Region  enter  table  pointer 

/  NUN  REGIONS  IN  ENTER  TABLE 


/  Loc  or  pointer  To  body  oaTa/ 
/  Region  leave  table  pointer  / 
/  nuM  regions  in  LEAVE  TABLE  i 


20  LBnT«NnQ-2 
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L"L*R 

L800r-L*l 

t0*TA«LB00Y*3»  thJBODY*NRPP) 

UBOO-LDATA 

C 

50  WRITE  <6*911) 

C. 

CIO  E\TER  data  for  rOOY 
C 

on  370  w»1»nS0DY 

MMaN*NRPP 

LS1«0 

REA0t5i9i2J  1C(  1 )  »1C<?)  »IC{3l  tITYPE»IClAt  *  tF  X  ( K )  I 

DO  51  I»l*li 

IF{ITVPE,EQ.ITY(I))GOTO  5? 

51  continue 

WRITE  {fc«9l3)ITYPE 
STOP 

5?  ITYPEwi 

NRoo(nwNeoo<i)*i 
5-LbODV*3W(nRPP*n-i ) 
master  (K) -I  TYPE*H5*L0ATA 

c 

C  90X  SPH  RCC  REC  TRC  ELL  RAW  ARU  TEC  TOR  aRS 

EOO  goto (201*ZE0*E0?i?01 •203*202*201 *230*204 t2u3«24o} *1  Type 
201  LE"12 

SnTO  210 
201  T 

GOTO  210 
203  LE-  8 

GOTO  210 
20*  LE»13 

210  WHITE  (6*91S>NN.  lc(  i)  .1C<2)  •Ic(3<  »nY<  ITYPE)  •1C<*)  *  (F*  <*J)  •  J«l*6) 
READISfRAO)  <F* ( J) t J-TtLE) 

write  (6*9UMrx  { Jl  .  J»7*LE1 

C  80*  SP8  RCC  REC  TRC  ELL  Paw  aR8  TEC  TOR  aRS 

onin  <290*300*300  *290  *285*270*290*300  *260*250*  300 1  ,nYPE 
C  SPh 

220  WRITE  (6*9i5)NN.lCll>  tlCIE)  *IC<3>  *ITY(|TYPfc)  *1C<4)  *  <F)l<J)  *J«1,41 
goto  300 

C 

CT*  ENTER  BODY  DATA  EQH  ARR 
C 

230  WRITE  <6*915)nN,IC(1) ,1C(2) »IC<3) *llY<ITYPtl »IC{4) , (Fx{J) ,J«l,o( 
CALL  AL0EHT<F**LBOI*NoO*LSi) 

GOTO  360 
C 

ci5  Enter  body  data  for  ars 

c 

240  CALL  ARlN<LeOr«LDATA*HASTER*ASTER* IWH) 

OnTO  360 

Ci6  TOR  concert  NORMAL  VECTOR  TO  UNIT  VECTOR 

C 

250  TT{1)wFX<4) 

TTtpl-FXJS) 

TT<3)»F*<61 
CALL  UNITCTT) 

FX  tA)«TT  <1) 

F*  <5) wTT  <2) 

FK(6)«TT<3) 

iFIfXIj) ,QE*FX (p) iflOTO  220 
WRITE  (6*943) 

10RR*IEBR*1 

GOTO  280 
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C 

CM 

C 

260 


8i8 

C 

C 

26S 


C. 

Cl9 

C 

C 


266 


267 


266 


C 

c?o 

c 

270 


8?1 

C 


C. 

C22 

C 


tEC  VERIFY  semi-major  ANO  SEmI-MINOR  aXES  PERPENDICULAR 

FY(I5taFX(13) 

LE»15 

TTHI)»FX(7) 

TTl (2)aFX(R) 

TTl(3)aFX<9) 

TT2(l)aFX(io> 

TT2<2JaFK(n) 

TT2«3)«FXJi2) 

IF«ABS(OOT{TTitTT2»).LE.O»Ol»  0°^°  ^6S 

write  (6»942)NN.TT1»TT2 

IERR"1E6R*i 

COMPUTE  semi-major  AXIS  LENGTH  aNO  CONVERT 
SEMI-major  axis  to  unit  vector 

FXn3)aSQRT(0OTITTl  tTTDI 
CALL  UNIT«TT1) 
fX(io»"TTi  <il 

rx(jl)aTTi  l2> 

FX(l2»aTTl<3) 

compute  semi-minor  axis  length  ANO  Convert 
semi-minor  axis  to  unit  vector 

FX<lA)aSORHOOTnT2»TT2)  ) 

CALL  CR0SS(TT.TTi.TT2) 
call  UNIT(TT) 

M0NbFX«a)«TT( j)*FXt5)*TT(2»*FX(ft>»TT(3» 

IF(H0N)267«266t268 
NRlTe(6*9A8) 
lERRalEBR^l 
GOTO  268 
TT(l)a-TT<l) 

TT(2Ja-TT(2) 

TT<3)a-TT(3) 

FX(7»aTT(H 
pX  (e»*TT  »2) 

FX (9)aTT(3) 

GOTO  280 

COMPUTE  FOCI  FOR  ELL 


IFiICiA)  .EO.IBDOOTO  300^  ,  ^  ^  , 

ASdaFX(A)«FX(4)*FX«S>*FX<5)*FX<6l*FX(6) 

CaSORT I aSO-FX (71 apx ( 71 1 

AaSQRT (ASQl 

FX(7)a4*A 


compute  XtYiZ  COMPONENTS  OF  FOCI 


CxacaFXUl/A 

CYac«FX(5»/A 

CZ«CWFX(6J/A 

compute  XtYtZ  coordinates  of  foci 

FX(4)arX(I)«CX 

fX<5)afX(2)*CY 

FX(6)aFXl3>*CZ 
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C 

C?3 

C 

2^0 


CM 

C 

265 


C 

C?5 

C 

290 


291 


292 


C 

C76 

c 

c 

300 

e 

C?7 

c 


i 


c 

c 

320 


F)C<  li»f  X(l)-CX 

x(2)-cy 

FX(3)»FK(3>-CZ 

PRINT  out  NEW  input 

WRITE  (6,9l5)NN,lca)  tIG(23  f  1C(3)  1 1  T  Y  ( 1  TYPE)  ,  IC  U)  . 
WRITE  f6t9i#*MFx<  jUJ«7fLE> 

goto  300 

TBC  VERKY  LOWER  AND  UPPER  RAQII  NOT  EQUAL 

IF(FX(T> .NE,FX(8) IGOTO  300 
write  t6'9**t 
1ERR»IERR*1 
GOTO  3(jo 


VERIFY  THAT  VECTORS  ARE  PERPENDICULAR  IF  bOX»  RAW,  OR  REC 

IF{A0S[FX{41*FX (7) ‘FX (5l*FX(8> •FX(6)*FX(9) ) ,LE. 0 . 0l » GOTO  291 
write  (6*942)NN* (rX tj) • J>4«9) 

IERR"1ERR*I 

IF{aBS(FX(4>*FX(  jp)  ‘FX  (5)  "FX  tn  t  ‘F*  .LE.O.OlJOOTO  292 

WRITE  t6i94  2>NN.FXt4)iFX{GtfFX(b)tFX(^0UFX{I|l)tFXII2) 

IERR«1ERR*1 

IFtaeSIFX  t7)*FX{  ip)  ♦FX  (fl)*FX(  1  J  )*FXt9)*rx(i2J  )  ,LE  ,  0  •  0 1  • '•OTO  350 
WRITE  t6*942)NN, (FX tU) , J«7, I2J 

ierr*ier«*i 

STORE  ROUT  DATA  AND  BODY  oaTA  POINTERS  IN  HASTER-ASTER  ARRAY 

BOX  Sph  RCC  REC  TRC  ell  RAw  ARd  TEC  TOR  aRS 
GOTO  <  31 pt  320t33n<  310  *340*330>310'230*3S0 • JA0*2Ao>  *  I  TYPE 

pointer  Forhat  90X  raw  /V  /  mi  /  REC  /  V  /  m  / 

/  M2  mj  /  /  HI  /  R2  / 

CALL  SEE 311 WH, A STFflf Master tFXti) .Fx(2),FX(3) «lB0T,lUATA,N00.L51> 

Master (ldata) -Imm*! 15 

call  Se£3  1  I WMfASTERt Master tFX(*)  *FX(5»  tfXte,)  »LeOT,LDATAiNDQ.LSl  I 
master (LOaTa) “MASTER (lOaT A  I *IwH 

CALL  SEEsflwH.ASTER.MASTERtFX (71 *F  X (r) *FX (qI »LBOT,LDATAiNOOtLSl I 
MaSTER(LOATa»1)»IWH«1]S 

CALL  SEE3C IWH, ASTER*MaSTEH.FX (10) xF*  1 1 1 ) .FX 1 1>>  * 
LROT.LDATAtNDO»LSlt 
MASTER  I LOATA+I I -MASTER (LDaT A* 1 > ♦ I WH 
L0ATA-LDATa*2 
GO  TO  360 

pointer  format  SPm  /  V  /  R  / 

CALL  SEE3(lWM,ASTER,MASTeR,FX{i) ,FX(2I ,FXI3) ,l80T ,L0ATA, NDO.LSl ) 

MASTER{LDATA1«Iwh*Ii5 

LSl-l 

Call  SEE3(IRHtASTER*MAST£H,FX  I*!  tFX<^l  tFXU)  ♦LBOT.LUATA.NoQtLSi  1 
LS1»0 

master (loata) -Master <loaTa»*Iwn 

LOATA-lOATa*I 
GOTO  3*0 
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C 

C?9  POINTER  FORMAT  RCC 
C 

^  330  CALL  SEE3(IWH. aster# 


/  V  /  H  /  CLL  /  FI  /  rz  / 

/  /R/  /  /U/ 

HASTER«FX(1) *FX<2>  tFXiS) iLBOT»LQATAiNDQ«LS1 > 


MASTEfi(LDATA)»lNH«ll5  , 

CALL  SEE3lIWM,A5TEBt«ASTeR»FX(4>*FXl5».FX(6) »LB0T .LDATA.NoO.LSl > 

master  aOATAl  "MASTER  (LDaTaMImH 

CALL^SEC3  tlMMtASTER^MASTERfF* (7) •FXtyt ifX {71 •LB07*L0A7A*ND0iLSi ) 
LS1"0 

MASTCRtLOATA*l»»lMM 
LDATA»lOATA*2 
00  TO  360 
C 

CIO  POImTEB  FORMAT  TRC  /  V  /  M  /  TOR  ''  J!  /  ^ 

C  /  HB  /  RT  /  /  Rl  /  RZ  / 

^  340  CALL  SE€3tIWH*ASTERiMASTER»FXtll»FXl2l •FXO) tLBOT|LOATAtNOO*LSl» 
Master (LDAT4i»twH4 115 

CALL  SEE3(IMMtASTER»MASTER,FX(A>tFXt5) |FX(6) f LOOT .LOaTa tNOQ. LSI ) 

Master (loat A » "Master (ldat A) ‘IMM 

LSl"l 

CALL  SEE3( IMHiASTeH*MASTER»FX{7) tFX  t?) tFK 17) iLBOT «Ll>AT A *NOO»LSl > 
master (LOATA*! 15 

CALL  SEE3( 1"M» aster « Master *FX (8) tf xtg) *FXte> iLBOTiLOATA^NOQfLSl ) 
LSl"0 

MASTERILOATA*! ) "MASTER (LOATA* 1) "ImM 

L0ATa"LDATa*2 

lF<iryPE.E0.10)LDATA"LDATA*3 
00  TO  360 

c 

C3l  POINTER  FORMAT  TEC  /V  /  w  / 

C  /  N  /  A  / 

C  /  Hi  /  R2  / 

C  /  /  RR  / 

C 

3S0  CALL  SEE3 (I "MtASTER (Master tFX(l) iFX 12) »fX{3) (LBOT »loata*noo»lsi) 
MaSTER(LDaTa)"I"M"1i5 

call  SCE3( lNH(A5TER*HASTERtFX(4) >FX (5) •FXt6>  tLBOT tLOATAi NDOtLSl > 
Master (loaTa) "Master t loaT A) •IMM 

CALL  SeE3(IMM.ASTER«MA5TER*FX (7) iFX ( 8 ) *FX (») »LB0T ,LDATA (NOOtLSl ) 
master (L0ATA*l)"lWM*Ii5 

CALL  SEE3nMH,ASTER(MASTER,FXtio>*F»(lll»tFX(i2)  . 

1  LSOTfLOATAtNOOtLSl ) 

Master  lL0ATA*l)"MA5fERtL0ATA*l>*l«(M 

LSI  "I 

CALL  Sees  aster  t  MaSTER»FX  (jj)  »FX(  J3)  »FX(13)  » 

1  L80T,L0aTA»NDO»LSi) 
master (LDATa*2)"1WH*I 15 

CALL  SEE3(IWM*ASTER(MASTeR|FX(i*t  tFAllAl iFAIiaI t 
1  L80T#LDATA*NDQ»LS1) 

Master (loata*?) "Master  iloaTa*2)*imm 
CALL  SEE3(lMM*ASTER»MASTeRiFX(i5) ff X ( i5» .FX ( 15) t 
1  LaOT»LDATA*NOO*LSl) 

LS1"0 

MA5TEfl(L0ATA*3)"lNM 

L0ATA"L0ATa*4 
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C 

Ca2  CHECK  IF  ANY  MORE  (^OOM  FOR  SOU  10  OaTa 
C 

3«0  tF<LDATA.LT.NOO>Qoro  370 
WRITE  (6t9l7>LDATA«LeOTiNDO 
STOP 

37o  CONTINUE 

WRITE  {6t9lS) 

WRITC(6fq47HTY.NBO0 

write  l6»9A5)U8ASE.LRPPD,UABUT,LaOOT|UBOO»LOATA»LBOT.uSCAU»LTRIP,N 


C33  transfer  ASTER(LB0T  to  NOQ)  to  ASTCRILDaTA  to  L0ATA*LSU») 

c 

LObLOATA-1 
LSUB»LBOT«uD-1 
00  375  IwLBOT.NDQ 
ASTER1LDATa)-ASTER(I» 

LOATa"LDAT**j 

37S  continue 

c 

C3*  UNPACK  pointer  WORDS  AND  RECOMPUTE  POINTERS  TO 
C  COMPENSATE  FOR  TRANSFER 


390 

C 

C35 

C 


C 

C36 

C 


K»(.800Y*3#  (NRPP^NBOOYj 
00  390  I"KtUO 
CAUU  UN2(I»Il»l2) 

IF  til. NE. 01  n"U«LSUa 
IFlIj.NE.O* I2*I2*LSU8 
MASTER(n-llBI15*I2 

continue 

RE8I0N  storage 
WRITE  (6*920) 

NBO 

J«0 

LREOD-LDATa 

I.OATA«LDATa*NRMaX 

LREQL-LDaTA 

ENTER  REGION  OATA 


*00  read  (5,921)  IR,  (1A(1)  ,1N(1)  ,I«U9) 


C37 

C 


*10 

C 

C3e 


CHECK  VALIOITr  OF  REGION  DATA 
DO  *10  lBl,9 

IF (lABS (IN(I) ) ,LE,Ne0DY*NRPP)OOTO  AIq 

WRITE  (6*922>1R*I 

J»J*1 

CONTINUE 

PACK  AND  STORE  REGION  POINTER  OATa 

lreqo  /  pointer  to  Region  /  number  of  booIes  in  region 


/ 


IFIIR)*40**20,*21 

*20  WHITE  (6*923)  tlA<I)  tiNd)  iIBlf9) 
.  GOTO  430 
*21  N»N*1 
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MRITE 

M«LHEOO*N-i 
MASTEHtM>»LOATA»I 
C 

Cl9  CHECK  and  convert 
C 

430  00  435  I«l*9 
DO  431 

ir (TAt I) tEOtlAAtK) IQOTO  432 

431  continue 

WRITE  t6t925) IA(I) *I 
STOP 

432  IA(I)"1AN(K> 

IP(INtl>  >433*435*434 

433  I4{I)h4*1A(I> 
tNdl  — IN(I» 

c 

CaO  pack  and  store  RE810N  DATA  /  OPERATOR  /  BODY  NUMBER  / 

C 

434  master  (LDATAt»IA(n*I15*IN(  It 
UOaTA^LOATA-*! 

master {M>*MASTER(M>  *  I 
IP (LOATA.LT.NOQtGOTO  435 
WRITE  <6'92T>LDaTa*N00 
STOP 

435  CONTINUE 
80T0  400 

C 

C4l  END  REGION  READ  -  TEST  NUMBER  Of  REGIONS 
C 

440  If tN.GC>NRMAX)GOTO  441 
WRITE  (4t926HR 

STOP 

441  IF(J.LE.O)GOTO  *42 
iWRITE  (6i941) 

STOP 

44?  WRITE  (6t9?8> 

C42  test  fOR  region  CHECK  OPTION,  CHECK  REGION  DATA  If  NOT  iERO 
C  (ERROR  IF  ANY  POINT  CAN  BE  IN  MORE  THAN  ONE  REGION) 

C 

If tIRCHEK.EQ*NO)GOTO  500 
WRITE  (6*93T) 

LL»0 

MtSwo 

C 

00  456  1wi,NRHAX 

00  455  JwJJtNRMAX 

KHI»LREGD’*I-1 

CALi.  UN2lKRI»L0Cl,NUMI) 

krjwlRego*j-i 

CALL  UN2(KHjfL0CJ»NUMj) 

If (NUM1,0E.NUMU)G0T0  450 
IO"NUMt 
TTbNUHI 
GOTO  451 
450  T0>NUMJ 
TIbnUMI 

lbloci 


lA|I),lNtl),l-l*9) 

15 

OPERATOR  TO  NUMERICAL  VALUE 
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loci*locj 

LOCJ»U 

c 

♦51  00  453  K0«lvI0 
KLK-LOcI^KO-l 
CALL  UN2IKLK»I0P0*N80| 

00  *52 

KLK«L0CJ*K1.1 
CALL  UN2(KLK.I0Pl,N8l> 
IPIIOPO.NE.IOPDOOTO  452 
1P(N80  (NEtNei  looro  4*2 

OOTO  453 
♦52  continue 


♦53  continue 

ir (mis.ne.idgoto  454 

50ITC  («f929>JtI 

LL«LL*l 
♦54  MIS«0 


♦55  continue 

NPITE  (6,930)1 
♦56  continue 

IP(LL.OT.O)STOP 
5P1TC  (6»93T) 

C43  POEPAPE  region  leave  table  CIS-1)  ANO  REGION  EnTeR  TaBLE  (IS-m) 
500  ISa*l 


C 


NN»NBOOT*NRPP 

lenlv»ldata 

00  59o  MMMbi*2 
00  580  I"l»NN 

N«L0Ooy*3*tI-l) 

IFCIS.QE.QIOO  TO  510 

’  “MASTER  CM*  I )  *lOATA 

GO  TO  820 

510  NASTERCm*! )aMASrERCM*l) *L0ATA4I1S 


520  00  570  J"1#NRHA* 

ITEmPmlRE00*J»1 
CALL  UN2CITEMP,u0c»NC» 
CALL  UN2CLOC*IOPiOUM) 
00  560  N«i,nc 
MM»tOC*N-l 

CALL  UN2CMM,I0PeR,NUM) 
IFCNUM.NEtDGOTO  560* 


IPCI0P.EQ.i.0R.I0P.EC2.5)6OT0 


•  l.OC 

lFCI0PER*0f.4»0OT0  530 
IF  C 1S»1 ) 560«550«560 
530  TFCIS*i)560*551*560 
54(1  IF(IS,lT.o)GOTO  551 
550  MASTERCM*2>aMASTERCM*2)*Ii5 
GO  TO  552 


540 


”1 


LOATAatOATA*! 

IF  CLOATA.lt, NOOIGOTO  570 
VRITE  C6*93l)L0ATAtN00*MMM,l 
STOP 

560  continue 


FIG,  75.  (Contd,) 
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570  continue 

continue 

WRITE  (6*9381 NNM 
IS*IS*z 

590  continue 

C44  RESERVE  SPACE  FOR  RIN  STORAOC*  ROUT  STORAGE t  AND 

C  subroutine  31  tcmporaRt  storage 

C 

L1»L0ATA-1 

nnnnrpp*nboot 

IRINRUoaTa*! 

LR0TRLRIN*NN 
LIOrLROT*NN 
CE9EOMaLlO*NN 
WRITE  (6i93Z>LE8eOM 

write  (0*919)  L.REOO*L**EQU*LENLV*Lf^IN*(. rot  tLlO*L£3EOH 

^45  test  region  ENTER/LEAVE  TABLE  PRINT  OPTION 
C 

IF tlENTLV.EO.NO) return 

WR1TE<6*946) 

NBNRaNBODY*NRPP 

C 

C46  print  out  region  cntew/leave  tables 

c 

on  600  NwItNBNR 

LOC«LS00V*3«(n-i1 

LOC«LOC*1 

C«LL  UN2 iLOCtLENT.LEAV) 

loc»loc*i 

C*LL  UNZfLOCtNENTiNEAV) 

Jl-LENT 

J2«LENT*NENT*i 

write  (6*933)  N.Ji.Jz*  (MASTER  (K)  *'^*J1*  J2> 

Jl-LEAV 

Ja"LEAV*NE4V-l 

WRITE  (6t934)N»Jl.J2* (MASTER tK ) *KWJ1 ,J2) 

600  continue 

C 

CaT  test  MaSTER«ASTEH  array  print  OPTION 
C 

IF  IIPR|N*EO*0)RETURN 
WRITE  (6*935) 

C4«  print  out  master-aster  ARRAT  to  End  of  region  ENTeR/LEAVE  tables 

^  00  620  KbLBASE*L1.3 

IKbK 
TK2»K*2 
Mao 

DO  610  1"1W»1K2 

HaM*I 

CALL  UN2(I*l)*l2) 

NOl (M)all 
N02(M>at2 
04(M}baSTER(1) 

NOo (M) ■! 

610  continue  .  „ 

WRITE  (6*936) (NOo(L) tNOi (L)*N02(L) tOAtL) tL-l^S) 

FIG.  75.  (Contd.) 
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620  C'INTINUE 
RCTUftN 
EMO 
C 
c 


FIG.  75.  (Concluded) 
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c 


c 


SUBROUTINt  fiPPIN(LAB) 

dimension  X16) 

DIMENSION  master t 10000) 

common  ASTER(IOOOO) 

COMMON/'GEOM/LHASE.RlNtROUTfLHItUMO*^INF»I£WR»0l5l  .  Dr,-« 

COMMON/'UNcGEM/NRPPtNTH  IP»«vSCAL  *  Nb^oT  *  NRMa At 'l5CAl.»^"CG0* 

)  LOATAtLHIN.LROTfLIOiLOCOAtllSt liOtLBODT.NASCtKLOOP 

CfiMKtON/RRPP/LHPPDtLABDT 

EODi Valence (master iaSter) 


910  format (6E12.S) 

930  format ( IHnlaTHERioP^lN  OEScHIPTION  of  RPP»15*sAt loMMIN»(iEtMAA) 
940  FfiRMAT  ( IMO  t27HERR0R  In  DESCRIPTION  OF  RPP 1 7  *  >  1 1 0  •  J  0^^*  1 1 0 1 
9130  FnRMATtJOAt  7MSURFaCE»  T5«OAt2E2o*b) 

IFRB-0 

N«1 


IHASE  -  BEGINNING  LOCATION  OF  HPR  POINTERS  RESERVE  12  WOROS/RPP 

/  I  /  j  /  I  (POINTER  TO  list  Of  abutting  RPP-SI 

/  /  K  /  J  (number  of  RPP-S  TmaT  aBOT  this  SURFACE) 

K  (POINTER  TO  bUUNoaRV  COORDINATE  FO«  SURFACE* 


1"LBASE*12*nHPP 

LRPPO  -  beginning  LOCiiTION  OF  RPP  BOunoaRV  COORDINATES 

that  are  pointed  To  by  <  tt-BASl  *12  •  NRPPl 


LHPPD»I 

E^.TEH  BOUNDARY  COORDINATES  OF  RPP 

10  REAO(5tR10l (X(J1 iJAltN) 

WRITE  (e»*92li*  Nt  (  X  ij)  *  j»i  tft) 

ypRIFY  mIMmdm  hounOARY  CUOMOTNATt  pESS  than  corresponding 
MAXIMtJP  boundary  coordinate 

on  ?o 

TF ( X  IJ) ,lT, X  I  J*  J ) (GOTO  20 
WHITE  (6»930>''‘ 

STOP 

?fi  CONTINUE 
C 

cs  STORE  ROUNDaRT  cOoRDlf"AT15  BEGINNING  aT 

c  Location  lbase  ♦  (12  “  nrpp) 
c 

on  33  jMltft 

II*L8aSE*12*N«PP 
L“t8ASE*l2*(N-I I *2*( J-) t 

30  IFdl.LT.PGOTO  31 
aSTER(I)«X(J) 
maSTER(L*1)=I 
I»I*1 

GOTO  33 

c 

Cf.  CHECK  FOP  and  eliminate  REDUNDAnT  BOunDART  COORDINATES 
C 

31  IF(X ( J) .EO.ASTEH ( 11  I IGOTO  32 
lT»n*l 

goto  30 


FIG.  76.  Source  Listing,  Subroutine  RPPTN 
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32  MjiSTE«(L*lt-ll 

33  continue 

IFtN.OEtNRPPlOOTO  40 
N«N*1 
SnTO  10 
C 

Ct  LABUT  .  BEQ INNING  LOCATION  OF  LlSI  Op  ABUT  RPP-S  PACKED  2/WORO 
C  1  POINTS  MERE 

C  J  CONTAINS  number  IN  LIST 

C 

Aft  LABUT"! 

LAST-I-i 

L-LAST 

C 

Ca  search  for  abutting  rpp-s  to  surface  j  of  RPP  1 

c 

00  57  I«l»NRPP 
on  57  N>lf5 
LL-0 

K-LBASE* 12* ( I - I ) *2* (N-i ) 
master  tK>> (l*1 )*Ii5*MASTER(K} 

NC*3*N-l-A*tN/21 

C 

Co  determine  if  RPP  J  HAS  ABUTTING  SURFaCE  TO  RPP  1 
C 

on  56  J*UNRPP 
IFd.EQ. J)Q0T0  Sf> 

IF(SntN}«NE*StJ>NCIlGOTO  56 
C 

Cio  compare  BOUnOAHV  coordinates  Of  RPP-S  1  ANU  J 

c 

on  53  K*l*3 
NN*N*NC 

Ka1*a*K-1 

IF tNN.EQ.K4i)00T0  53 

K2«2*K 

IF(S«  I  ,K2i )  ,<JT.S(  J»K2inG0T0  So 
TFtS(J,K21)  .LT.Sd  *K2  ))Q0T0  53 

50  TF(Sd>K2i )  .GE.S(  JiK2  t)GOTO  5i 
TF(SUiK2  ),Le.SdiK2  DOOTO  53 

51  lr<StI»K2  l.QT*Stj*K2  IIqOTO  56 
IF  tSd,K2i»  .LT.SI  JtK21 1  )OOTO  56 

53  CONTINUE 
C 

Cll  STORE  RPP  NUMBER  IN  ABUTTING  RPP  LIST  ANO  INCREMENT  NUMBER 
C 

H*«H 

1F<M,LT.o>OOTO  54 
MASTER (LI "MASTER (tl *J 
GOTO  55 
5A  L"L*l 

MA5TERtL)"J"Il5 

55  LL"LL*l 

56  continue 

K"LBASE*12*(1-1)*2*(N-i» 
master  (K)  "MASTER  {KULL 

57  continue 


FIG.  76.  (Contd.) 
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If (NRPP*LE.1)90T0  63 

c\2  test  validity  Of  RPP  data 


00  62  J*lt6 
NRPP jmnPPP*! 

00  61  I«ltNPPPl 
JJ»LBASC* 12*  t I-l >  *2«  < J-l > 

CALL  UN2(JJ«lOUMtI2) 
l3»MASTEP(JJ*l» 

Tf <l2*Neio)OD70  61 
IT«I*l 

00  60  f*IItNPPP 
KK«LBAS€*  12*  >  *2*  <J-1  • 

CALL  UN2«KKiI0UM*I5> 
l6**<ASTER(KK*i) 

Tf (l5«NEtO>ODTO  60 
IF(!3.E0»l6)0OT0  60 
IEPP«IERP»l 
fPITE  (6*9A0n*K 

<«RtTE  I6*9S0>  J*  ASTER  (13)  «  ASTER  (161 

60  continue 

aOTO  62 

61  continue 

6?  CONTINUE 
61  LAR-L 
return 
ENO 


FIG.  76.  (Concluded) 
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SUBROUTINE  At.eeRr(EX*l.eOT«NOQ*LSl) 

DIMENSION  lA(6*4)*AA(e*3}tr(4)tPX(6) 

DIMENSION  MASTEfldoOOOt 

common  asteriiqooo* 

COMM0W/UNCQEM/NRPP,NTRlP»NSCAl.»NB0DlffNRMAX.LTRlP,(.SCAl.tt-RE60» 
1  LDATA*LRTN*LRoTtLlOiLOc0A*  Iis*130'1-RODV*NaSc''^4.OOR 
CfiHMON/OEOM/LBA5E»RIN.HOUTtLRl»l.ROtPlNr*lEBR»oIST 
Eou I  Valence tASTeR»M*STER» 
c 

901  format t25X»6Fia.S) 

<*0P  FORmaT(ioK»6(iX**II)> 

R03  format ( 10X,6Eio.3) 

90*  format  (25X.6UXf*r2)  I 

90S  FORMAT! iH0,i5HUNDEFIN£D  PLANE) 

90*  FORMATtlStjoIEU  .*t  > 

907  format ( iHfl.gftMFOUfl  POINTS  NOT  IN  A  PtANE) 

90S  format ttHO.ZSHERRoR  IN  SIDE  DESCRIPTION) 

909  format  (  iHo»)#,MOEGENERaTE  PLANE1I5) 

C 

C)  STORE  COORDINATES  OF  FIRST  TMO  VERTICES  IN  ARRAY  aA 
C 

<•) 


on  10  1“1*2 
DO  10  j"V»3 
AA  {I*J)MfX<K} 

KmK*1 

10  CONTINUE 
C 

c?  enter  coordinates  of  remaining  Six  Vertices  into  array  aa 
c 

READ  15,903) H AA ( I . J ) , Jm 1 , 3 ) , I -3 ,8) 

c 

Cl  ENTER  ordinal  NUMBERS  OF  PlANE  VERTICES 
C 

REAO  (5,902)  t(tA(I,J),J«l,*),l«i,6) 

WRITE  (fe»901) ( (AA ( I » J) , J«i,3) f I«3*9> 
write  (6* 904) ( (Ia(|*J)*J*1,4)'I*1*6) 

C 

DO  70  1«1,5 

?*  retrieve  FIRST  THREE  VERTEX  COORDINATES  OF  PLANE 
C 


C 

Cs 

c 


1X«IA (1,1) 

IYMIA(T*2) 
tZ«U(l  ,3) 

X1«AA  tIX»l) 
yi»AAttX,2) 

Zl*AA(tX,3) 

X2*AA(iY,j) 

Y?mAA(IY»2) 

ZpMAA(IY,3) 

XJMAA (IZfl) 

Y3maAI1Z»2) 

Z3MAA( IZ,3) 

COMPUTE  coefficients  OF  PLANE  EOUATION 


0mX1» (y2*Z3-22*Y3)»x2*(Yl*Z3«Zl»Y3)*X3*HYlwZ2-Zl*Y2) 
A«(-Y2*Z3*22«r3*Yi*Z3-Zl»Y3-YjMZzyZl*Y2) 
®"J»2*23"Z2*X3-xi*Z3*X3*Zi*Xi*Z2*Zi«X2l 
C"(Y29X3-Xz*Y3-Yi*X3*Xl»Y3*Yi*X2-Xi«Y2) 


FIG.  77.  Source  Listing,  Subroutine  ALBERT 
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ni2«(Xi-X3)*»2*  «Yii-Y3l«*2*  IZ1-Z3>*»2 
C 

Ca  test  for  OeOENERATE  PLANE 

C 

A2B2C2«A«A*B*e*C*C 
TF<A2BzC2<NE*0> >60TQ  21 

WRITE  t6*904>l 
0»ABS<0t 
GOTO  61 
C 

CT  TEST  FOR  UNDEFINED  PLANE 

C 

21  D1210*DU»1.0E-12 
IFU2e2C2.QT.rn21oJ  GOTO  22 
WRITE  t6«90S> 

WRITE  (6i906) ItAiSiC*Dt012 

16RR*IePP*I 
aoTf)  70 

22  SwSQRT ( A2B2C21 
NXwA/S 
WV*S/S 
WZ»c/S 

cr  retrieve  coordinates  of  fourth  vertex  on  plane 

r 

Ic-IA(I.*) 

X4WAA  t  TC  1 1 1 
Y4>AA(TC«2> 

24bAA(ICi3» 

Co  compute  distance  to  Plane  of  fourth  vertex 

02*  (-D-  (  AWX4)  -  <B*YA)  •  /  I  {A*wXI  *  {B«wY)  ♦  (C*wZ) ) 

022*02*02 

cio  oeterhine  if  fourth  vertex  lies  On  Plane  of  first  three  vertices 
c 

IF(D22.LE.1.01)GOTO  30 
WRITE  (6i9o7l 
IERR*IERR*1 

WRITE  t6t9Q6) t'A«RiC<0i0l2t02 
GOTO  70 
C 

30  DO  31  K*l*4 
F<K)wO. 

31  CONTINUE 
C 

cil  COMPUTE  VALUES  OF  OTHER  FOUR  VERTICES 
C  WITH  respect  to  PRESENT  SIDE 

C 

L»1 

00  32  jwitrt 

IF(J*EQ»I**OH.  J.eO.  IY,0R.J.£0.1Z*0H.  j.eQ.IOGOTO  32 

F  (LI “AWAA ( J* I J  *8*AA ( J»2) ♦CwAA ( Ji3) *0 

L*L*l 

32  CONTINUE 
C 

Cl  2  compute  number  of  other  vertices  on  either 
C  SIDE  of  plane  or  on  PLANE 
C 


FIG.  77.  (Contd.) 


629 


r»  n  n 


TN  -4565-3-71  Vol  II 


H«0 

N«0 

J«0 

00  44  L»lt4 

IF(A6S(Flt.)).LE.|*OE*4>OOTO  42 
,  rF(F<LM41t42t*3 

41  MaM*i 
GOTO  44 

42  NbN*1 
(JOTO  44 

43  J«J*l 

44  COf^TINUE 
C 

Ci3  determine  side  or  plane  other  vertices  are  located 

c 

IF  IN*EQ*0}OOTO  SI 
IF tM*N.EO*4}OOTO  40 
ir{J*N,EQ.4)60T0  61 
GOTO  52 

si  IF(M.EQ.4)OOTO  60 
TF ( J*E0t4>00T0  6i 
S3  VRITE  t6t9oB) 

WRITE  (6t906>  I*A*8<C«0*012*02*  <F(L} fL«lt4> 
IERP»lERf**l 

OOTO  7o 
C 

60  A«-A 
S"»B 
C"-C 
0«>D 

4  STORE  PLANE  COEFFICIENTS  AND  POINTERS 

61  CALL  SCE3(IWH|ASTERtMASTER.A*BfCtLB0T«L0ATAtNDa»LSt) 
HASTEBtLDATA)»IWH 
LSi-i 

CALL  SEES ( I WHt aster f master •OiOfOtLBOT«LOATA*NDe*LSl) 
LS1»0 

MASTER (LDATA)BMASTCRtLOATAl*[MH*l IS 
LDATA»LOATa*1 
70  continue 
return 

END 
C 
C 


FIG.  77.  CConcluded) 
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SOBROUTINC  4RIN (LBOTiLDATA) 

surroutine  reaosi  chicks*  processes*  and  stores  Input  daTa 

FOR  THE  ARS  (AReiTRART  SURFACE) 

OIMENSION  W  (3)  *iJW  (3)  tVW  (3)  ♦WN(3) 

DIMENSION  maSTEP(IOOOO) 

common  aster (10000) 

COmMON/UNCLE/NN, IC(A) 

equivalence  (master* ASTER) 

901  F0RMAT(\N  , Ifl. 1 X*3A1 *?X»3HARS.2A*Aa*2A»8A* 

1  37HNUMRFR  OF  CURVES  M« , 11 0  / 

2  IM  ,33K.37MNUMRER  OF  POINTS  ?£«  CURVE  Nm*U0  / 

3  IM  ,33Xt37HNUMRER  OF  POINTS  In  MN«,I10  / 

4  IH  .33X.37HNUMHER  OF  POInTS  STORED  NP»2N { M- 1) ■ » 1 1 0  / 

5  IN  ,33X.37HT0TAL  STORAGE  NSTH»4NP*e2»  ,  1 1 0  ) 

903  Format (25X,NF12. 4) 

904  format  1  lOX.SHO.Sl 

905  format  {IN  ,33K»34hNUMnEH  OF  TRIANGLES  DESCMIBED  *11(1  > 

906  FOrMATiIH  .33X* 34HNUMBER  OF  NON-OEGEnERATE  TR I AnGlES, 1 1 0  ) 

910  format ( IHO •43HERROR  In  DESCRIPTION  Of  ARS  SOLIq  NUMBER* 15) 

9U  format (5X,?IMNUMBeR  OF  POINTS  IS  0) 

920  FORMAT(10X,2T10) 

Enter  numher  of  curves  and  number  of  points  per  curve  and 

COmPUTf  number  of  point  To  UE  STqRED  and  storage  REQUIREMENTS 

RE4D(5.9?0)m,n 
MNeM*N 
NP=2*N* ( m-1 ) 

NSTW=4*NP*H? 

KRlTE(6i9011NNtlC<l)*IC12)tIC(3)»lC(4)*M»N*MN*NP*NSTR 

CHECK  TF  number  of  points  IS  0 

IF (NP.flT .0) GOTO  1 0 
mIRTTE  (6'910)nN 
mhtTE (6*91 1  I 
return 

RrsFRVF  storage  I*'  MASTER-ASTEP  ARRAY  FOR  ARS  DATA 

10  LRoTblbOT-NSTR 

master (LOATA) ■L80T 
LO AT4*lOAT  A*1 
EOc“L80T*R? 

enter  and  store  COOMOInATE  OAIA  of  ars 

LOCC-LnC+4 
on  230  1*1  . m 
IF (I,EQ.M)LOC*LOCC 
Ll»LOC 

L2*L0C*R-»  (N-l  ) 

RE  AO (5*904)  ( ASTER (L) *ASTE«(L*1 >  »ASTER (L42) tL*Ll*L2»8) 
white  (6*903)  (ASTER  (L)*ASTER(L*1)  *  ASTeRIL^Z)  *1.*L1*L2*8) 

IF ( I ,NE,M) WRITE (6.903) 

IF(I,e0.1.0R.I.FQ.M)GOTn  220 


FIG.  78.  Source  Listing,  Subroutine  ARIN 
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on  2\o  *1.2*8 

ASTER  (LOCO  *ASTefi(L» 
aster (LOCC^l ) -ASTERIL*!) 
aster  tL0CC*2) -ASTER {L*2) 

LOCC-LOCC+8 
210  continue 
220  tOC*L2*e 
230  continue 

STORE  NUMBER  OF  POINTS  STORED  FOR  aRS  AND  INITIALIZE  LOCATION 
FOR  storing  number  OF  HITS  FOR  ShOTLInE 

MAsTeRtLfiOT)«NP 

masterilrot*u-o 

eliminate  degenerate  triangles  For  given  ars  data 

NTaNp-;* 
white (^,9oS)NT 
LI=L0OT*82 
L2*L1 *4* (NT-1 ) 
on  350  L»l1*L2.4 
W ( 1 )-ASTtR(L) 

W (?) .aster (l* 1 ) 

W  ('JJ.ASTER  (L*2) 

Uw  tn«ASTER(L*4)  -W  (  I  ) 

U* {2)=ASTER (L*5) -w (2) 

Uh  (3)  *aSTES  {L*6)  -W  O) 
v*»  (  1  )  »ASTER(L*«)  -W  1  1  ) 

Vw (?) saSTEh (L*H) -w (2) 

V**(3)tASTER(L*I0)-W(3) 

CALL  CROSS(WN,Uv*,  vw) 

IF (DOT (WNtWN) ,GT, 0.0001 (GOTO  350 
NTxNT-  1 

ASTER(L*3)s-1 .0 
350  CnwriNUF 

c 

wHI  IE (8<90fe)NT 

wRITe(5*H031 

RETURN 

Enh 


FIG.  78  (Concluded) 
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SUBBOUT  INI  SEES ( I ASTER tMASTER»PX»FXXtF)lXXiL80T iLOATA »NOQ*LSl ) 
dimension  ASTERanOOOi  fMASTEfldOOUOl 

c 

Ci  TEST  TO  determine  If  TBIBCEl  OR  SCALAR  OATA 
C 

If (LSI.NE.OIQOTO  SO 
C 

C7  EXECUTE  IF  TRIPLET  OATA 
C 

IF(LBOT.6T,n081O0T0  20 
NnO2«NO0“2 
C 

SEARCH  FOR  EQUAL  TRIPLET  IN  THE  ASTER  ARRAY 
C 

00  10  I»L8OT»n0Q2 
IFtoSTERd)  .NE.FXIOOTO  10 
IFtASTERd*!)  .ME.FXXISOTO  10 
IF  (ASTfRd*2)  tNE.FXXXiaOTO  10 
Ii^H«I 

return 
10  continue 
c 

C4  store  triplet  passed  by  argument  list 

c 

20  ASTEfl(LBOT-l)»FXXK 
ASTERtLB0T-2)-f XX 
ASTER(l80T-3)-FX 
L0OT»LBOT-i 
IWH«LB0T 

IFILBOT.LE.LOATAIWRITE  l6»30lLBOTtLDATA 

return 

c 

30  FORMAT <IHO*22HHCMORY  OVERLAP  IN  SEEltSXt5ML60T«*>l«* 

1  SX»6MLDAT4»tI10) 

EXECUTE  If  SCALAR  QUANTITY 

C  SEARCH  FOR  equal  SCALAR  QUANTITY  IN  THE  ASTER  ARRaY 

C 

SO  00  60  laLBOT.NOO 

If  USTERd)  .NEtfXjOOTO  60 
I«(H»I 

return 
60  continue 
c 

Da  store  SCALAR  quantity  passed  by  argument  list 

c 

ASTER(LB0T-1)»FX 

L80T»L90T-| 

ImHmLBOT 

return 

END 

c 

c 


FIG.  79*  Source  Listing,  Subroutine  SEE3 
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SUBROUTINE  QRIO 


1 

1 

1 


dimension  WP(3> 

COMMON/P AREM/ KB (3>  »IR 

COMMON/8EOM/l.8ASe.RlN»ROUT.LRl*LRO»PlNf »IERfltOlST 

COMMON/UNc<JeM/NBPP»NTRrR»NSCAl.»NeOoTfNRMAX*l.TRIP»LSCAL»l.REGD* 

LO*TA*LRIN«LROT.LlOtLOCDA»Il5»l30*L8OOYiN*SC»KLOOP 
COMMON/QTRACM/Dl*02*MMlTtLMA*»TRl200) »X0St3>  flRSTBT»IENC» 
ITR(200> iCAiCE*SA«SE 
rOMMON/CAL/NlR»SLOS (ANGLE »NTVPEiSSPACE< 


TRAVEL»SNtViH(IVlM 
COMNON/KALT/LIHEO»NSIERR 
COMNON/hOYT/VBef (HREF 


COMMON/CELL/CELSIZ 

COMMON/CONTRL/!TESTO(IRaYSF( IENTLV»IV0LUM»1W0T»ITaME8#N0#1YES 


ROl  FOHMATieilOl 

902  format (BElz-a* 

903  format  tlMOiZMNK, 15, jKtZHNYf I5(5X(7MIrSTART*15(5X(AHIENCi15(9K| 

1  6MNSTaRT(Ib»5X*aHNENDi I6i5Xi9McELL  SIZE»F7.2// 

2  17H  DATUM  LINE  aT  2"(FiO(3*27M  FITm  RESPEcT  To  TmE  0RI6IN/ 

3  17M  GROUND  IS  aT  ZM(F10(3i27m  “ITM  RESPEcT  Tq  THE  ORIGIN/ 

A  17H  XSmIFT  is  aT  X«(FiO(3*27H  MiTh  RESPEcT  Tq  The  origin/ 

5  17M  YSHlFT  IS  aT  Y»(F10»3»27M  <*ITM  RESPEcT  TQ  TME  ORIGIN/) 

904  format UM  »7MAZlMUTM(F12t5t5X»9H£LEYATI0NtFl2,5t5X( 

1  13MBACK  OFF  0IST*Fl2(5t 

905  FORMAT(2E20t8(4E10>3) 

9o7  format  (iHodStlSH  CELLS  SKIPPED) 

9oe  format (1H0,42hOPTION  set  to  compute  random  POINT  IN  CELL) 
9oO  format ( IH0» ISMOPTiOn  Set  to  choose  center  of  CELL) 
c 

Cl  read  grid  input  parameters 

c 

REAO(5*90l)NXfNY , IRSTRT , UNCf N6iEHR(NSTaRT tNENO* ICENTR 
RFAO  t5»902)A(E*£NGTM,2SMlFT.QROUNO 
read  (5.902!  XSHIFT.YSMlFTiCELSU 

i.7  initialize  parameters  not  set  by  Input 


c 

IFdRSTRT  .LE.O)  IR5TRT«l 
IFICELSIZ  .LE.0.}CElSIZ>4. 

IF(NSTaRT*LE*0}NSTAHT«I 
IF INEND,LE.NSTaRT)NENO"NX*nY 
irtNGiERH.LE.OlNOiCRRMZS 
C 

C3  PRINT  OUT  input  PARAMETERS 
C 

WRITE  t4(R03)NX,Ny«IRSTRT,  lENC .NSTART ,NENO,CEL$IZt 
I  ZSHlFTtGROUND.XSHlFTiYSHlFT 
1f(IMOT*£Q. tYcS)WRirE(l>90S>AtetX5HlFTtY$HlFT.ZSHIFT«CEU$lZ 
WRITE  t6*904)AtEtEN0TH 

IF  (ICENTR.EQ.O)  WRITE  (iS.RoB) 

IF  (ICENTR.NE.q) WRITE l6»909) 

RADI ANw. 01 7453292519943 

AR>A*RaOUN 

ER»CWRaD1AN 

S4>5INtAR} 

camcost aR) 

$E«SIN(ER) 

CE>COS(ER) 


FIG.  80.  Source  Listing,  Subroutine  GRID 
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PRt^CESS  NPmO-NSTaPT*  1  CELLS 

KK«nSTART 
*  wH  (  1 )  •-CE*Ci» 

MR (2) a-CE^SA 
MR (3) o-SE 

COMPUTE  ROM  AMO  COLUMN  NUMRER  OF  ORlQ  CELL 
C 

J«KK-(II-1)«NX 

C 

CELL2".5*C£L5I2 

VaFLOAT ( (NY/2>-II)*CELS1Z  •CElLZ 
VREFaVtCCLLZ 

HaFLOAT t (NX/z»-  J)«CEL5IZ  ‘CELLi 

MHEFaH^CCLLZ 

IF < ICENTR*EQtO>80TO  5 

MaHREF 

VaVREF 

IVlHaft 

onto  « 
c 

5  I VaRAN(-l ) aiO. 

IMaRAN (»1 t  *10* 

TVlHaioaiM*IV 

C 

CA  COMPUTE  random  POINT  MiTMIN  OHIO  CELL 
C 

VaV*CELSIZ  afLOATtlVJ/lO.^CELSIZ  /Z0« 

MaM*C£LSIZ  aFLOATdMl/lO.^CeLSIZ  /ZO, 

C 

CT  CONVERT  GRID  PLANE  COORDINATES  TO  COORDINATES  OF  TARGET 
C 

6  X8S(l)aXSHIFT-V*CA*SE-MaSA 

XRS(2(aVSHIFT-VaSA*Se*M*CA 

XRS{3)aZSHIFT*V*CE 

CALL  THOPIc(WP> 

XaS(l»aABS<i)*WP(i)ai,(,E-* 

XBS(2)aXSS(2)  •MP(2tai,(,E-« 

XaS(3laX85(3) AMPta)*! ,oE-a 
C 

Ca  back  off  Hay  origin  from  brio  PLANE  TO  ATTACK  PLANE 

C 

XB(1  laxBSdl-ENQTHaMBUI 
XSlz>ax8S(2t-CNQTH*MB<2» 

XH t3taxaS(3l»EN6THaMB(3) 

IF(Xh{3) ,LF.GH0UNn)60T0  40 

c 

C9  SAVE  RAY  ORIGIN  AND  DIRECTION  COSInES  OF  RAY  FOR  LATER  REFERENCE 
C 

DO  ao  KK1=1 .3 
XS(KKl)aK8tKKl) 

MS(KKlia«8tKKl» 

20  continue 
CALL  track 

IF (lERRtGE.NGlERR) return 

IF < IRAYSK*EQiNO)GOTO  40 

FIG.  80.  (Contd.) 
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cio  co*<pute  Random  number  of  celus  to  be  skXRPeo 

c 

MSHIFTMRANt»l)*2S, 

MRITC  <6*90T>»<SMIFT 

KKbKK*MSHIFT 
40  KKaKK*! 

IF(KK,LE.NENOJGOTn  4 

return 

END 


FIG.  80.  (Concluded) 
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SUBROUTINE  TRACK 
dimension  KPt3( tERRORIal 
COMM0n/PaREM/X8{3) *WBt3>  *1R 

COMMON/OEOM/L8ASeifllNf«OUT»LRl»UROfPlNF»IERR»DlST 

COMMON/UNCOEN/NRPPiNTRlPtNScALtNBODTtNRMARiL^RIf^^LSCALtLREOO* 
]  l.DATAiLRINtLROT.LtO*LOCOA*IlS*l30*LBOOV(NASc*KLOOP 
COMMON/oTR*cK/Ol*OZ»l<MlT»LMA*»*Rt200l »XbS (3) f iRSTRTt IfNCi 
1  ITR(200) *CA*CEtSA*Se 

COHMON/CAL/NlR*SLOStANOLE*NTYPEtSSPACEtLfXS<3) ( 3* tTRAVEL* 

1  5N»V»h<IVIH 

CnMMON/CONTRL/ITESTO*lRAYSKtlENTt.W,lvOLUH«lNOT»irAP£BiNOtlYES 

CnMMON/WAl,T^LIRFO»NOlERR 

CnMMON/MOYT/VREF.HREr 

^OMMON/lSU/lSURf 

CflMMON/CELL/CELSlZ 

common/err/ lERRo 

901  FnBMAT(F6»l.l)<»F6,l  .I3.lX,F7t2.lX.F7,2»Al2»I3.1X»zI3, 

1  1X»F8*3»1X*F8»3) 

qf)^  FnRMAT(2(U»F7.2tF7.2*F6.  iflatFT.Zt  «  ^ X*2l  j 1 1 X,  1 A 14X •  Afr ) 

903  PORmaT(3iH  nUmbeR  OF  INTERSECTIONS, 6T. 2001 
9oA  F0RMAT(//) 

905  FORMAT(iH0ri6H0  ITEM  IN  CELL  I . U* iM, » U, jH) *5X* 

1  2HH"»F6tl»5X*2MV"tF6*  1 1 

EHR0Rt2)«  6H0  ITEM 

DATA  ERROR  til tERRORtZ* /AM  *aM1TCN/ 

n2>A0q6 

NASCm-1 

IH-IRSTRT 

L"1 

KHIT«o 

JCNTpq 

mSKRT«(j 

MTARO"! 

N&RMRPn 
MVOL  -0 

00  10  I-l*200 

iTRtn-O 

TfllD-o. 

10  CONTINUE 

y  SUBROUTINE  QI  KILL  RETURN  FITH  $1-D1STANCE  THRU  REOION  IR« 
IRPHIM.TME  NEXT  Region  number*  XP-INTERSEcT  Of  next  ReAION 

ZO  CALL  ai(Sl,IRPRIM,XP) 

IF (IRPRIm.lT.o) return 

TRtLlMSl 

KLSURF»LSUflF*T 

loc«lirfo*ir-i 

CALL  UN2(LOC*OUM,IOENn 

ioent«ioent-i 

82  PACK  SURFACE  number  -  BODY  NUMBER  -  NEXT  REOION  NUMBER 
C 

lTR{Llp(KLSURF»112*NASC)«Il2AlRPRlM 
1F(NaSc»LE.nRPP) IRPRIMPO 


FIG.  81.  Source  Listing,  Subroutine  TRACK 
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irtlftPRIM.EO.OtOOTO  100 
lR«lRPRIM 
KHIT"KHIT*1 
ir(L*OT*l)OOTO  40 

Cl  COMPUTE  DISTANCE  FROM  GRID  PLANE  TO  FIRST  INTERSECT  OF  TARGET 


01«-C  (XP«  ll-XBS(  1)  l*WSm  ♦  (  XP(2)-X8S(2)  »•WS^2^ 

I  ♦  (XPI3)-XBSI3))*WS(3)) 

GOTO  60 
C 

C4  TEST  SPACE  IDENTIFICATION  CODE 

C  0  ■  NO  SPECIAL  material  10*SKIRT  20*ARMOR  30»TaR6ET 

C  . . .  •  INTERIOR  VOLUME 

c  1  ■  exterior  volume 

C 

40  IF(IO£nT.EO.O)GOTO  60 

IF<1DENT-<|oENT/io)«10»EO.o>60TO  so 
Kh1T*KhIT»i 
IF(I0EnT.NE.1)MV0L"1 
GOTO  6o 
C 

so  IF(IOENT*EQ.20)MARMR«i 
1FnOENT,E0.3o)MTARO«l 
IF(IOENT,EOtlO>MS«RT»l 
60  L»L*l 

IP(L.LCt200><^OTO  20 
WRITE  (6»9o3) 

STOP 

C 

CM  END  OF  RAV  OUTPUT  RESULTS 
C 

100  lF(L.EQ*ltRETURN 

IF(ITAPEe>EQ«NO.ANO*lWOT,EQ.NO)RETuRN 

C 

C4  compute  DISTANCE  FROM  GRID  PLANE  TO  LAST  INTERSECT  OF  TARGET 
C 

02aX0IST(XBStXP).Sl 

02»«02 

IF<KHIT.OT.o»GOTO  loS 
KH1T*KMIT41 

MTaRO«o 

105  KM1T»KhIT»1 

lHaABS(H/CELSIZ  )«.S 
IF«M,LT.o.) IH»-IH 
IVaABS(V/CELSIZ  )*.S 
if«v#lt.o«> IV»-IV 
C 

C7  OUTPUT  GRID  CELL  AND  TARGET  IDENTIFICATION  DATA 
C 

IF(ITAPE8.EQ.N0)00T0  110 
WRITE  (6*9o4) 

WRITE  (6*901 ) href* VREF*lVlH*0l*02*M$KRTtMTAR0«MARMRtMV0Li 

1  khit*ih»iv»m*v 

no  IF ( IWOT. EQ* lYES) WRITE (1*901) href* VREF* I VIH*01*02»MSKRT»MTaRG* 
1  marmr,mvol*kmit*im*1v»h*v 


FIG.  81.  (Contd.) 
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C 

C«  OUTPUT  PAY  INTERSECTION  DATA 
C 

LNAK«L 

u«o 

TRAVEL"TP(1) 

00  200  NIK»1»LMAX*2 
J£RR0*1 

IF(L*OE«LHaX)RETURN 

Jo  COMPUTE  data  output  FOP  FIRST  HACF  Of  tlNE 
C 

CALL  CALC 

TF«NIP.NE.O)OOTO  113 

JERR0«2 

IERRo"IERRo»1 

113  IFCSSPaCE.NE.O.) JCNT-JCNT*! 

C 

CIO  SAVE  OaTA  OUTPUT  FOR  FIRST  HALF  OF  LINE 
C 

niri«nir 
SlOSi-SLOS 
angle 1«AN0LE 
Sni«Sn 

NTYPEl«NTYPE 

SOaCCi-SSPaCE 

c 

L*L*1 

IF(L.LT.LMaX»GOTO  115 

NTR«0 

SLOS«o. 

ANQLEaoi 

SNao» 

NTYP£«o 

sspace»o« 

QOTO  120 
C 

Cll  COMPUTE  DATE  OUTPUT  FOR  SECOND  HALF  OF  LINE 
C 

115  CALL  CALC 

IF<n1R.NE.0)6OTO  117 

JERRO^Z 

IFRRO«IERRo*l 

117  1F<SSPACE.EO.O.»OOTO  130 
120  JCNTaJcNT*! 

130  N«L«JCNT 
C 

Ci2  TEST  TRACK  FLAG 

C  501  •  TRACK  EDGE  502  •  TRACK  FACE 

C  IF  normal  distance  10  INCHES  RaY  ENTERS  TRACK  FACE 

C 

IF(NIR1.NE.S01)60TO  UO 
IF<SNl.LT,l0.)NlRia502 
UO  IF(NlR.NCt50l)OOTO  150 
IFCSN  .LT*io>)NIR«5o2 

c 

C,3  OUTPUT  RAY  INTERSECTION  DATA 
C 


FIG.  81.  (Contd.) 
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UO  IF (iKOT.EQ.ireS) write  11, 9021 NIRl»SLOSl,SNl,ANaLtl,NTYP£l,SP*C£l, 

I  NIR,Sl.OSfSNfANOLE*NTYPEfSSPACe,lHiIV*N 

ir(lTAPE8.EQ.IYES|WRITEl6t902INlftl»Si.OSl»SRlt*NOLEl»NTYt»Ci,SP*cei» 
1  NIH,SUOStSN,ANOLE»NTYPE»SSPACe»lM*IV*N»ERRO«(jEftR0> 

IF(ITAPE8,Ea*N0*AND* J£RPO*E0.2>mR1TE<6»90S) IH, I V *HR£F « VREF 
C 

IF(t*9C>LMAX}R£TURN 
IFINTYPE  .E0,9)flETURN 
200  CONTINUE 

return 

END 

C 

C 


FIG.  81.  (Concluded) 
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D  iSVoN^  xS*  O  t  .  T  P  MP  O )  .  T  E  MP 1  ( 3 )  •  r  EM  ( 3 )  .  TEM  1  ( 3 )  .  XM 10  ( 3 )  .lEMP  ( *  > . 

dimension  mastew ( 1 onoo) 
common  flSTeB(10000> 

COMMON  ASTER(lt)OOO)  ^  B 

COMMON/O£OM/L0AS€»RINtROUTiCPl »ER0»^INF » IERR»01ST 
COMM0N/UNCQeM/NflPPfNTRlPtNSC*LfN800^»NHM*XtLTRlPtLSCAU»tRce0t 
I  LOATA»LPlNtLROTiLlO*l.OcDA»IlS»l30*LBODlf  *NaSc»KEOOP 
COMMON/eTRACK/OltO2*KHlT.i,M*X.TB(200MX8S(3)»lRSTRT.IENC. 

1  ITR(200»  tCAtCEiSAiSE  ,  .  „ 

CnMM0N/CAl,/NlPiSL0SiANSi.E*NTYPEiSSPAcEfL»X5(3>  tPSot  *  TRAVEL  t 
\  SNlV»Hi!VlH 

common/walt/lirfo»noicRR 

equivalence (MASTER* ASTER) 

Real  Nr{a) 

901  FORMAT (IH0*15HTMATS  ALL  FOLKS//)  «  ,  , 

902  format tlHOflTHBAO  ITTPE  IN  CALC »SX ,6H I T VPE" ♦ l5» ANNfiO** I 5/ 

1  16M  RETURN  TO  TRACK//) 

903  FORmaT(iHo»23MaRS  dIO  nOT  fINq  nORMal) 

90*  FORmaT(//5H  NORM/5H  NIR«*I10*BXt(»HlTYPE*tI10»5A»AHNBOM»Il0i5K* 

1  6HLSURF"* IIO/4H  M0Mt3£2O* 10/*M  *tSP«3E20* lO/AM  Xp*f3C2U*0/ 

2  ♦«  X9"»3Eao* 10/*M  XI* t 3E20* XnOS** JEZO* lo) 

905  format (35H  error  IN  CaLC  A  TRC^MAS  RI  •  L  „  -  * 

90A  FORMaT{*2H  error  IN  CaLC  SaD  LSuRf  FOR  yO*  OR  Ha*  ) 

I  RETRIEVE  FOR  PRESENT  INTERSECT  THE  SURFACE  NUMBER* 
root  number,  ano  next  region 

CALL  OPENK(L*LSuRF*NBO»NIR) 

IF (NIR.GT, 0)GOTO  lO 
«RIT£  (ft*90l’ 

RETURN 

»  COMPUTE  TRAVEL  -  L INE-OF-SIGMT  DISTANCE  TO  TmIS  REGION 

SLOS  -  LINE-Of "SIGHT  DISTANCE  THROUGH  THIS  REGION 
XI  •  COORDINATES  OF  iNtERSECT  POINT 

10  SLOS“TR(L*l) 

DO  20  I"l*3 

XI  (ir*XStI)*TR4VlL*KS(I) 

20  CONTINUE 

TRAVEL«TflAVEL*SLOS 

LSURF*LSURF-7 

3  SET  the  constant  multiplier  of  the  direction  cosines  of  normal 

TO  *1  FOR  ENTRY  OR  "I  FOR  EXIT 
XN0S*1. 

IF  (LSURF.LT.O) XNOS"-l. 

A  RETRIEVE  BODY  TYPE  AND  LOCATION  OF  OaTa  FOR  INTERSECTED  BODY 

LOC»La0DY*3«(N60-l ) 

CALL  UN2(LOCtlTYPE*LDATA) 

LSURF*IA05tLSURF) 

itype»itype*i 

IFdTYPE.GE.l*  AND.ITyPE*LE.12)G0T0  3o 


FIG.  82.  Source  Listing,  Subroutine  CALC 
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«RIT£  <6»9o2HTYPE*NBO 
return 
c 

TRANSFER  TO  SPECIFIC  BODY  SECTION  TO  COMPUTE  DIRECTION 
COSINES  OF  normal 

Rpp  BOX  spm  rcc  rec  trc  ell  Ram  aRB  tec  TqR  ARS 

30  eOTO(50tl00*15O«200«200«3O0«3S0«A00tA50*50OfS50t600} ilTYPE 
C 

Ca  check  the  space  CODE  AND  ITEM  CODE  Op  TME  NEXT  REQION 
C 

*0  CALL  OPENK tL*l •OUH,DUM|NCXREO) 

ISPOT«LlRFO*NeXREO-l 
CALL  UN2(ISP0T*0Un«IDENT) 

ISPOT»l1RFO*NIR-i 
CALL  UN2(I5POT«NIRiOUM) 

ioent»ioent-i 

IFdDENT-dOENT/ioJAlO.NE.OtOOTO 

NTYPE-0 

$SPACE«0< 

RETURN 

41  L"L*1 

IF<LM.LT,LMAX)OOTO  42 

IOENT-9 

SSP4CE«l,0E-4 

NTYPe«IDCNT 

return 

42  NTYPE«IDENT 
SSPACE*Tfl(t*l> 

thavcl«travel*sspace 

return 

C 

Ct  rpp  section  for  computing  the  direction  cosines  Of  THE  normal 

c 

50  HB(U«0.0 
N0(2>=n.o 
p8 ( 3) >0 • 0 

GOTO (51 152. 53.54 « 55.56 t .LSuRF 

51  HH(U»XNOS 
GOTO  1000 

5?  HB(U»-XNOS 
GOTO  1000 

53  H8t21«XNOS 
GOTO  1000 

54  MH(2}>-XNOS 
GOTO  1000 

55  pS(3>»XN0S 
GOTO  1000 

56  MB(3)a-XNOS 
goto  moo 


FIG.  82,  (Contd.) 
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C 

cn 

c 

100 


103 

104 

105 

no 


115 


120 


C 

C9 

C 


150 


UO 


17(1 

c 

CIO 

c 

c 

200 

201 

202 


203 


OOTO  1000 

BOX  section  for  COMPUTINO  the  OlRCCllON  COSINES  OF  THE  NQRHxL 
CONTINUE 

FCOMwlSURF- (LSURF/2) *Z 
IF  lKCOM.E0«0}XN0S«*XNOS 
IFltSUBF-3) 10**103*105 
!■! 

OOTO  110 
1>2 

OOTO  110 

IF(LSURF,LT.5)OOTO  103 
t«3 

C*LC  UN2(L0ATA»IEMPt4t*UMP(in 

i.o*ta«ldata*i 

CALL  UN2  (LOaTa»IEMP(z>  nEMPlan 
DO  115  J"l»3 

LH«1EMP (I) 

LV"ICMP  U> 

J*1 

1JK«LM*M 

IJK1»LV*M 

TEMP(J)»4STER(IjKl**5TEHtIJFll 

MK«J-i*IEMP{*( 

TEHPj ( J)«ASTER(M«) 

CONTINUE 

CALL  DCOSP  (TEMPI  .temp,  *(b» 

DO  120  J»l*3 
( J)  ■XNOS*M0  (  J) 

CONTINUE 
OOTO  1000 

SPM  section  for  computing  THE  D1«EC!IOn  COSINES  Of  the  normal 


CALL  UN2{LOATA,LV,OUMj 
on  i6o  I*l*3 
MiiI«l*LV 
TEM(n-ASTERtM) 

continue 

CALL  DCOSP(Xl<TEM.We} 

DO  170  I"l»3 

ii(R(I>BXNOS*MB(I) 

continue 

OOTO  1000 


RCC  AND  REC  SECTION  FOR  COMPUTING  DIRECTION  COSINES  OF  NORMAL 
FOR  AN  INTERSECT  WITH  EITHER  PLANAR  SURFACE 


IF(LSURF-2)202t201 lElO 
XnOS**XNOS 

CALL  UNZ(LOATAtLVl»LV2) 

DO  203  I«10 
M-I-l 

IJK1PM*LVi 

IJK2mM*LV2 

TEMtn.ASTEfitiJKl) 

TEMi IIJ«ASTCR<IJKi>*ASTeR{IJK2> 
CONTINUE 

CALL  OCOSP tTEM,TEMl»WBl 


FIG.  82.  (Contd.) 


643 


TN  4565-3-71  Vol  II 


00  20*  l«lf3 

wB(i)«xNos»Meii) 

204  continue 
GOTO  1000 

c 

Cl  I  RCC  and  REC  section  FOR  PROJECTING  INTERSECT  ONTO  HEIGHT  VECTOR 

c  FROM  The  quadratic  surface 
c 

210  CALL  UN2(LDATA,LV,LH) 

LRl ■master (LOATA^l) 

00  211  J»l,3 

M»J-l 

lJKaLV*M 

TeM(J)«ASTERIlJK) 

IJKi»lm*M 

TEMl < J) -ASTER ( UK) ♦aster < IJN I ) 

211  continue 

CALL  0C0SP(TEM*XI«MN) 

CALL  DC0SP»TEM»TEMI»MI) 

SUM«o. 

on  212  J«i,3 
SUm*SUm*wn< j) •VI ( j) 

212  continue 

00  214  J-1.3 
XP<J)«SUM«X01ST(TEM#X1) 

KP«J)«XP( J)«VI (j)*TEM(jl 
214  continue 

8)2  transfer  to  rec  section  to  compute  direction  cosines  of  normal 
C  IF  AN  intersect  on  THE  QUADRATIC  SURFACE  OF  AN  HEc 
c 

IF  (1TYPE.E0.5)00T0  250 
C 

03  COMPUTE  THE  DIRECTION  COSINES  OF  ThE  NORMAL  IF  AN  INTERSECT  ON 

c  quadratic  surface  of  an  RCC 

C 

CALL  0C0SP(Xl»XP»wB) 

00  220  J"l*3 
WR(J)aXNOS*MB( J) 

220  continue 

GOTO  1000 
C 

Cl4  compute  the  DIRECTION  COSINES  OF  THE  NORMAL  IF  AN  INTERSECT  ON 
C  QUADRATIC  surface  OF  AN  REC 
C 

250  LOATAmlOATA^I 

CALL  UN2(L0ATA*LRi*LR2) 

00  255  J»l»3 
M*  J«  X 

UKi«M4LRi 

temp Cj) -aster < IJKi ) ♦XP U) 

1JK2-m«lR2 

TEHPi  (J)-aSTER(UK2)*XPCJ) 

255  CONTINUE 

AI-XDIST(XP.TEMP) 

A2-X0IST(XP, TEMPI) 

1FIa1*6E*A2)Q0T0  260 

A3-A1 

A1-A2 

A2*A3 


FIG.  82.  (Contd.; 
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260 


26S 


TEMP  < I ) wTEMPl ( 1 1 

TEMP (2) "TEMPI (j) 

TEMP<3)"TEMPi (3I 
C-SQRT  t*l**l-Ag*A2> 

CAUL,  0C05P(»P*"eMP*MNJ 
DO  26S  J»lt3 

TEM  ( J>"XP( 

TEMi  ( J)"XPU)  -C«WNt  J» 
CONTINUE 

CALL  OCOSPtTEM.Xl.MN) 

DO  270  J"l*3 

TEMt  J»"2.*Al**fNUl  •TEM(J» 


270  CONTINUE 

CAUL  OcOSP(TEMtTEMl»PB» 


no  275  J“1'3 
MR< Jt«XN05*MBIJ) 
275  CONTINUE 

aoTo  1000 


Cl5  TPC  section  for  COMPUTlNfl  THE  DIRECTION  COSINES  OF  THE  NORMAI 
C 

300  CALL  UN?(LDATA,lV,LM) 
t  P  *aSTER  (LH) 

{  2)  »ASTER  (LH*  1  » 
t  3J "ASTEB (LH*2) 

IF  (uSURF.EQ.3)(50Tn  3lr 
IF  (LSURF.EO.?)  xnos  —  anos 
call  UNlTIWM 
Wrt  (  ]  )  *XNOS*i«N  (  1  ) 

MB [2)»XNOS*mN (2) 

MB ( 3) ■XNOS*mN (31 
GOTO  1000 
310  LO aT a»LOAT6* 1 

call  UN? (LOATA^lRI tLR2t 

HHbASTeR (UR) 1 
HTeASTERtLR?) 

RAT  IO»RR/ (RH-RT 1 
T£mP(1 )*ASTER(LV1 
TEmP {?) "ASTFR (lV*I 1 
TEMP (31 »ASTER 1lV*2) 
on  320  1=1 t 3 

TEm ( 1 ) s TEMPI Tl  ‘RATIO* WN(I)-*I 
TEmi { I ) =TEmP ( I  I -XT ( I ) 

320  continue 

call  cross  (MAf  TEMpEMl ) 

Call  CROSSImB^maiTEMI 

Call  unit(mb) 

MB ( 1 >«XNOS*MB ( I ) 
m8(2)«XNOS*M0(21 
MBt3»“XNOS*MB(31 
goto  1000 


FIG.  82.  (Contd.) 
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Ct6  CLL  section  FOR  COMPUTING  THE  OI«ECTiON  COSlNfiS  Op  THE  NORMAL 
C 

350  CALL  UN2(LDATA,LR1*LRZ) 

LSMMASTEfttLOATA*!) 
on  352  J*l»3 

M«J-i 

IJKiRM^LRl 

IJK2»M*lR2 

TEM(J)«asTER(IJKi) 

TEMi(jj«aSTER(IJK2» 

352  continue 

AaASTER(L$) 

CALL  0c01p<TEH*XI,MN) 

00  353  JPlf3 
TEMTjy«A«8NTj»*TEM(J» 

353  continue 

CALL  0C0SP(TEn,tEH1.NP) 
no  35A  J«li3 
KH<  J)«i(NOS«*tH<U) 

354  CONTINUE 
GOTO  1000 

C 

Ci7  RAW  section  for  computing  The  OlRtCMON  COSINES  OF  normal  to 
C  SLANTED  surface 

*00  IF(LSUPF.E(J.2»G0T0  *01 

ifl  transfer  Tn  Hn»  sFCTioN  IF  Intersect  not  on  slant  side 

IF  (LSURF  .NE.A)O()T0  lOH 

write  {«.*<JooI 

stop 

*01  CALL  UN2 (LOATA.lV.LVI I 
LOaTa^LOaTa*! 

CALL  UN2<LnATAtL'/?»LV  n 

f)0  410  J»l«3 

M“J-1 

IJKisM*lVi 
IJK?sM*LV2 
TF.MP( jisaSTERI  iJKi  > 

XMlo(J)  paster  ( IJKi  )  -  a'^TER  ( IJK^I 

1JK^«M*UV3 

TFM( JJ •aSTeRI tJAj) 

41 n  continue 
T»1 
>«? 

K»3 

LA»|. 

00  411  nKai f3 

TFM)  (I  )*XNTn(  J)*TEM(M-*RIl)(K)»rEN(  JJ 

LX*I 

TsJ 

JsK 

KrLK 

411  continue 


FIG.  82.  (Contd.) 
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SIJM=0  , 

nf\ 

SUM=TE,Wi  ( J)  *TtMP  Ij)  tSitM 
*1?  C'^NTlNUf 

SU'>'*-SUM/ahS  (SUM) 

TlK»TEmi  ( 1  )*‘»2*TEmi  <2)**^*TtMi  (J****! 

Ti.K  =  SORT  (  TlK) 
r>n  420  J»i«3 

KHlJ)a)tNOS*SUM*reMl  (J)  /Tlk 

420 

GriTO  1000 

l9  4Mfi  StCTIOM  POP  COMPUTIIM&  The  DI^tCllON  COSINES  OF  fME  NORMAL 

450  LSPT»L0J"'A*lSURF-1 
CALL  iJN2  (lSPT  tDUM«Li ) 

SiJM»0» 

f>n  451  U'lO 

MS  J-l 

SUM-  SUM  +  ASTER  ( 1 JK I  —Z 

451  CONTINUE 
OIV-SORT (SUM) 

00  460  j»l«3 

M«J-1 

IJK-M+lI 

we ( J) -XNaS-ASTCH ( I JK I /DI V 
460  continue 
80TO  1000 
C 

C20  TEC  section  FOR  COMPUTINfi  THE  DIRECTION  COSINES  OF  TME  NORMAL 
C 

SOO  CALL  UN2ILDATA.lv. LH) 

LOaTA-LOATa*! 

Call  un2(loaTa<ln.la) 

WN ( 1 ) -aSTER (LN) 
wN(2}"AST£R(LN*i» 

WN(3t"ASTeRtLN*2t 
IF (L5URF-2) 5201510*530 
5l0  KNOS—XNOS 
520  weH)»*NOS«WN{ll 
We(2>*X^0S*WN{2l 
WR(3)aXNOS-WNt3l 
GOTO  1000 
530  LDATA-lDATA*1 

CALL  UN2 (LOaTAiLRi *LR2) 

LB3"MASTEft(L0ATA*i ) 

VF  (  1 ) -aster (LV) 

VF  f2J-ASTER  tLV*i ) 

VF(3)«aSTER(LV*2I 
HFtl »«ASTER{LH) 

HF(2)«aSTER(LH*i) 

HF(3)-aSTER(LM*2) 

TEmP(1)»XI ( i)-VF<i  » 

TEmP {2)*XI {?) -VF (2) 

TEmP  t3> -XI ( 3) -VF (3) 

HM-OOT (TEMP.WNI 
HON-DOT (HF.WNt 
GAMMA-HH/HON 


FIG.  82.  (Contd.) 


647 


TN  4565-3-71  Vol  II 


TEmP ( I ) ■VF  fl) *GaMMA*HF  tl) 

TEmP(2)«VF(2) ‘GAMMA^HFia) 

TeMP(3)»VF<3) *6AMMA«HF{3) 

Hl»ASTEfi(LRl> 

R2«ASTeR (LPZ) 

TAU*(Ri/H2}**2 

Ra-R2/aSTER<LR3> 

BS0»(GAMMA*RA*R2* (1 .-GAMMA J )**2 

ASQ*TAU*aSQ 

CaSQRT  USQ-8S0) 

Tl*nA«2.*SQflT{ASQ) 

00  5*0  1*1 *3 

IJK*LA*1-1 

tempi  ( I )  -CHASTER  (UK) 

TEm<  I )  »TEMP(n  *TEMPl  tl) 

TEmI <I)»TEmP<1)-TEMPJ  tl) 

SfcO  continue 

call  0C0SP(TEM,X1 tWN) 

TEmP( 1 ) *TEM (1 ) *TWnA*WN ( \  ) 

TEmP (2)*TEm (2) *TW0A*wn (2) 

TEmP(3) *TEM 131 •TW0A*WNt3) 
call  DCOSP (TEMP.TEMl »wN) 

IF  («2.ECI.R*)G0T0  5*5 

RATIO*R2/{R2-R*t 

HF  ( 1 ) (I ) ♦RATI0*MF  1 1 ) -XI  ( 1 ) 

HFt2)«VF  t2)*«ATIO*HFt2)-XI (2) 

HF I3)»VF 131 ♦RAT  rO*HF (3) -XI (3) 

5*5  call  cross (NF.mF .WN) 
call  cnOSStwfitNF tHE ) 

Call  UNlTtWR) 

WH  ( 1 )**N05*WB ( I  1 
*'<R(2)«XN0S*we(2) 

*8 (3) aXNOS*WB (3) 
goto  1000 
c 

C2l  TOR  section  FOR  COMPUTING  TME  DIRECTION  COSINES  OF  THE  NORMAL 
C 

550  CALL  UN2 (LOATA.lv, LNt 
LOATAclOaTa*! 

Call  un2 (loaTa.lri tOUM) 

DO  551  I*I»3 
JaI-1 

IJKXLV4J 

tempi  I) -X I ( I )-aSTeR(I JK) 

IJK»LN>J 

TEMPI  tnxASTERt  I  JK) 

551  CONTINUE 
R1*ASTER (LRl) 

CALL  CROSS tTEM.TEMP^ .TEMP) 

CALL  CROSStTEMi.TEM, TEMPI) 

CALL  UNITITEMI) 


FIG.  82.  (Contd.) 
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00  552  1»10 

J»J-1 

IJKsLV+J 

TeMtn»ASTER(  IJK) 

Tempi ( i> “Tem  1 1) *  1 ) 

552  COMTtNUE 

CALL  OCOSP(TEMPi.Xl*WMt 
no  553  *3 

Wr I  1 ) nXMOS^wu  <  I ) 

553  CONTINUE 
GOTO  1000 

cp?  APS  section  fop  computing  the  direction  cosines  Of  The  normal 

c 

600  L0CARS»MA5TERIL0ATA1 
L0C*L0CARS*2 
OIS-XDIST {XS»X1) 

00  610  I»l»20 

IF  iABS(OIS-ASTEP(lOC) ) .LE.O*0001>UOTO  620 
L0C“L0C* A 

610  continue 

rtfiiTEift.gns) 

Sn»“ 1 » 
angle ■ *  1 t 
return 

620  rtM(l)«ASTER{LOC*n 
IXH  (2)  .aster  IL0C*2» 
rtR (3) »ASTeR {L0C*3I 
goto  1(100 
c 

C23  COMPUTE  obliquity  ANGlE  AND  NORMAL  OISTANCE  TO  N£xT  REGION 
C 

1000  00  1001  J*lt3 
xe(j)«xi(j)*Msu>»i*oe-3 

1001  CONTINUE 
ANQLe»0i 

00  1002  J»l*3  ... 

AN0LE*4NQLE*'^B<  J» 

1002  continue 

IF  UBS  (ANGLE)  lOlO 

ANOLE«0i 

Shite  (5»954)NiRfiTYPE*Neo»LSURr*«8*»(S»*P**B'*i**NOS 
IRbNIR 

goto  40 

c 

C24  COMPUTE  obliquity  ANGLE 

010  ANGLE"ATAN2 (SOHT(V.-ANQLEPANQlE) tANOLC)PlflO»/3»l*l5G2654 
IF tANOLC<LE*40*)GOTO  1020 

on  1011  J»I*3 
MR(J>p-WB(J) 

1011  continue 

SOTO  1000 


FIG.  82.  (Contd.) 
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C 

C75  compute  normal  DISTANCE  TO  NEXT  INTERSECT 

c 

1020  NASCa-2 
1 QsN I R 

CALL  Oi (Sl«IRPRtM.XP) 

SN-Sl 
OOTO  40 
End 
c 
c 


FIG.  82-  (Concluded) 
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SUBROUTINE  OHSl ,  I«PRIH**P)  ^ 
dimension  XP  CI)  ,LSU«T  (SO)  ♦naSc’  (5*5) 

DIMENSION  master ( 1 0000) 

COMMON  ASTEB(IOOOO) 

CnMMON/PAREM/XB(3) iW6(3) 'IP  „„„ 

COMMON/OeOM/LB*SE.RIN»ROUTiLRI»t.HO,PlNf  .lERflfOlST  .Rrart. 

c0MM0N/UNC6EN>'NRPP»NTRlP»NSCAt.»Na00^*NRMAX»LTRlP*LSC*l.*l-PCQ0* 
1  L0*T*»LRIN.LROT.LIOfl.0CD*.Il5*l30*L8OOYiNASC*'<LO0P 
COMMON/CAL/NlRtSLOSf*N6LE»NTVPE»SSP*CCtL»*S(31 (MStJ) t TRAVEL* 

1  SN»V»HtIVIH 
C0MM0N/WAI.T/LIRP0*N01ERR 

COMMON/cONTRL/lTESTGt  IRAYSKiIENTI.V»IvOI,UM*IVOT*ITaPC«»NO»ITES 
COMM0N/0AVlS/10Rl0*i.0OP*  INORM 

COMmON/cELL/CELSIZ 
COmmon/wmIcw/NBO 
equivalence  1aSTER*MA5TER> 


901  PORMAT ( lMO*32HEBROfl  IN  Gl  AT  1*0  BAD  ITTPE»5X,*MITV**I5) 

902  format ( IHO»33HERROR  IN  01  aT  510  SM  R*  PInF* SX »3HIR*» IS) 

903  format (*M  X6*<3E20*S^*H  Ffi" •3E20*fl/l0X *5HAL00p» 12x*3HN0Ot 

1  12X»3HLHI •12X.3MLRO*11X«*HNH1T»IIX»*MLOOP/6I15) 

904  FORMATtlNl,l5{2H*  (,3X,  9MERR0H  NO, , 15,3* * l5 •)//» 

905  format (3*X,*HCELL,2I*) 

906  format (19M  ERROR  IN  SI  aT  6*0/^4N  J1m*I10**H  J2**110»7M  LSURF^t 

1  I10.5H  NASC*tI10**M  1R-*110/*M  SMM,E21 * 10*AH  Sl-tElT*10/ 

2  4M  W0-»3E21»1O/4H  *8"»3E21.10) 

9oT  format (50H  the  (SOLID  POSI T ION/OEPTH/POINT  NOW  AT)  IS  ONE  OF* 

1  6M  THESE/6H  XBD  •«3E21»10/6M  OlST"»E2l* 10//) 

9Qg  format  t9X.3MRlN,i2X,4MR0UTt7*»8HeNTERlN0»2X*7MLEAVlN8*3*» 

1  8M800Y  N0.»5X*3MRAY,/35X*8M5IDE  nO, ,2X»BMS1oE  NO*//) 

910  fOHMAT(//i6M  Tilt  RIN«ROOT»*E20*10*30**2HI»U5//) 

91 1  format (2(2XiEi5.a) ♦4**l2»8X* I2*6*»I5*5**7HSTArTEU/I 

9)2  format (2 (2X tElSifll »4** 12*8X* I2*6** I5t5X»7NrtAS  HIT/I 

9)3  format (2  t2X«ElS,8) *4* • I2 *8X* l2 *6** I5»5*»THLEAV INS/) 

9i4  F0RMAT(2(2XtEl5,8> »4**l2'8*tl2*6*»15»5**TH  IN  /) 

9)5  format  t2(2*'El5'8>  »4** l2*e** l2'6*»I5*5X*8HCNTERINa/) 

916  F0RMAT(2(2X,E15.ai »4*. 12*8**12*6**15, 5*t8HWlLL  NlT/) 

917  F0HMAT(//4tl4H  ENp  ERROR  NO.*l4»3*)/) 

918  format (1M0*I5*21M  CRRORS  In  Ol*  RETURN) 

tNORM«0 

IF(NASC*EQ.-2) IN0RM«1 
Sl-o* 

tF{NASC*OT.0)GOTO  20 


initialize  for  new  rat 


QIST«0. 

IF(KLOOP,LT. 32000)0070  15 
KLOOP«o 

L!ON»HO*N0OOT*NRPP-1 
00  10  I«Lt0*L10N 

MASTeRtl)«o 
10  continue 
15  kloop*kloop*i 

Cp  besin/continue  tracing  ray  thru  region 

c 

20  SmmPINF 
NMIT*o 


FIG.  B3.  Source  Listing,  Subroutine  GI 
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£3  COMPUTE  location  OF  RESION  0*TA 
C 

LnC>LRE6D*IR-l 

C 

C*  RETRIEVE  THE  NUMBER  OF  BODIES  IN  REOlON 
C 

CALL  UNZ{LOC«LOC*NCl 
LOC-LOC-l 

C 

on  500  N>1«NC 
C 

C5  retrieve  BOOT  NUMBER 

c 

L0C«L0C*1 

CALL  UN^CLOCtOUMiNSO) 

C 

Ca  RETRIEVE  ENTER  ANO  EXIT  SURFACE  NUMBERS  ANU  LAST  RAT  NUMBER 
C 

ITEMP«LlO*NeO-l 
Call  UN3UTEMPtLRl  tLROrLOOPt 
C. 

CT  retrieve  BOOT  TYPE  ANO  LOCATION  OF  OaTA 
C 

irEMPaLR0DT*3* (NBO-1 ) 

Call  UN2(ITCMPf ITYPEfLOCOA) 

IF (LOOP. NC.KLOUP) GOTO  130 
C 

Cb  continue  Hay  RETRIEVE  R|N/H0UT  FOR  CURRENT  BOOT 
C 

IFdTYPE.eT.inoOTO  lAO 

IJK»LR1N*NB0-1 

»IN«ASTER(IJK» 

IJK>LR0T*NBO-i 

ROUTbaSTER(IJK) 

1FIITYPE.lt. loIGOTO  320 

£«  15  NEXT  R IN/ROUT  SET  REQUIRED  FOR  TOR  OR  ARS 

C 

IF(HOUT.LT.O.»GOTO  32'' 

IF  (nlST.LT.HflUT)  ooTO  320 
IFlNASCtCO.NBOlNASCaO 
C 

130  LRI«1 
LHO-1 

ITV-ITYPE*; 

IFdTY.GE.l  .AND.  ITY.LE.  12>G0r0  200 

140  IEflR»ieRR*j 

WRITE  COtOoiIITYPE 
OnTO  BOO 
C_ 

ClO  COMPUTE  RIn/ROUT  FOR  CURRENT  BODY 
C 

C  HPP  BOX  SPH  RCC  REC  THC  ELL  «A"  ARB  TEC  TOR  ARS 

200  <3°^^<2oS*2lO*215t22oi22S«230*235«240t24S*2So*255*200) yITY 
205  CALL  RPPINBOI 
GOTO  300 
210  CALL  BOX 
GOTO  300 
215  CALL  SPH 
GOTO  300 


FIG.  83.  (Coutd.) 
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220 

CALL 

RCC 

OOTO 

300 

225 

CALL 

RCC 

OOTO 

300 

230 

CALL 

TRC 

GOTO 

300 

235 

CALL 

ell 

OOTO 

300 

240 

CALL 

RAW 

OOTO 

300 

ill 

CALL 

ARB 

OOTO 

300 

250 

call 

TEC 

OOTO 

300 

255 

CALL 

TOR 

OOTO 

300 

260 

CALL 

ARS 

Cii  store  RiN  ano  rout  eor  boot  In  bin  and  rout  Tables 

c 

300  I JK«LRIN*NB0-1 
aster (IdtO  "BIN 


TJK«LIO*NBO-l 

master CI JK» "KUOOP* 1 15*  <LR0*64*LRH 

Cl2  IS  point  XP  on  current  boot  TES»IS  IT  ENTER  OR  EXIT 
C 

3?0  IF (NASC«NE*NB0) GOTO  330 
IF<LSURF)500*500»340 

Ci3  DOES  RAT  intersect  BOOT  TES-OOCS  IT  ORIBXNATE  PITHXN  BOOT 
C 

330  IF <R0UT.LE.0. )OOTO  500 
IF tRIN.OT.o«)OOTO  350 
c 

ClA  point  XP  at  RIN  OR  WiTMlN  BOOT 

c 

3A0  IF(ABS(R0UT-SH) .GT.SM#I»OE-6»OOTO  3*1 
ROUTaSM 


OOTO  3a5 

341  IF(ROUT-SM)342»345»500 

342  IF(OIST.6E.ROUT)OOTO  500 
NHiTao  ,, 

3A5  NHlTaNMlT^i 

SmbROUT 

LSORT«NMlT»a-LRO 
NASCt(NHlT)aNBO 
OOTO  500 
C 

Cl  5  POINT  XP  AT  ROUT  OF  BOOT 
C 

350  IF(AB5(RIN-SM> .OT,Sm*1,OE-6)OOTO  35X 
RINaSM 

I JKaLRIN*NBO-l 

aster (IdK)MRIR 

OOTO  355 


FIG.  83.  (Contd.) 
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351  ir<RIN.SHI352*355*500 

352  ir(OlST.Oe.niN)OOTO  340 
NHlT«o 

355  NHIT«NhIT*i 
SmbRIN 

LSURT(NHIT)aLRI 
NASCT(NHIT)aNBO 
5e0  CORTINUC 
c 

iriSM.LT.PtNriGoro  sso 

^16  error-no  intersect 

c 

RRITE  <6t902)IR 

MPITE  (6*903>Xa*WStKLOOP*NeO*LPl»tROfNHlT»LOOP 
GOTO  TOO 

c 

Cl  7  COMPUTE  NEW  COOROINaTES  OF  POINT  AP  aNO  P€VISE  DISTANCE  TRAVEUEO 

w 

530  Sl«Sl*SN-OIST 
OISTbSM 

AP  ( 1 )  Bxa  ( j )  ♦sh«»(0  ( 1 » 

XPl2)aie(2>«SMBW(|(2) 

XP(3laXB(3>«SM*We(3) 

c 

IF(NASC<C0.-2)RETURN 

C 

Cl 8  DETERMINE  REGION  TMAT  POINT  XP  nO«  In 
C 

00  640  NN«1,NHIT 
naSc  bnaSctinn) 

LSURFblSURT (NN) 

LTRUE-0 

c 

Cl 9  COMPUTE  location  oF  INTERSECTED  BOOT  DATA 
C 

LOCaLB00Y*3*  <  NASC-l J 
LOC»LOC*1 
C 

Cpo  RETRIEVE  LOCATIONS  OF  REGION  CNTER/LEAVE  TAGLE  FOR  BODY 
C 

CALL  UN2(L0C»LEnT.LEAV) 

LOC*LOC*l 

C 

C7l  retrieve  number  of  REGIONS  IN  ENTRY  LIST  ANO  E*IT  LIST 

c 

CALL  UN2(L0CtNENT,NEAV) 

C 

C72  COMPUTE  THE  BEGIN  AND  END  OF  LIST 
C 

1F(LSURF.LE«0)OOTO  600 
J I -lent 

J2«LENT*NCNT-i 
GOTO  610 
600  Jl^LEAV 

J2aLCAV«NEAV-l 

C 

C73  any  REGIONS  IN  LIST  OR  IS  RAY  LCAVINq  RPP 
C 

610  IRPflIMaMASTER(J2» 


FIG.  83.  (Contd.) 
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C 

C?* 

C 

620 


625 

C 

C75 

C 


630 


631 


632 

6*0 

C 

C2a 

c 

650 


C. 

C»9 

C 


IFtJl.LE.J2160T0  620 

IF (nasc.ot.nrppigoto  too 

IF(LSOHF)630»700»700 

OETERMINE  region  point  XP  NOiX  entering 

on  625  J>JliJ2 
jPPRIHbMaSTeR( Jl 

call  xOWI (IHPRIN«LSURF»NASC*LTRUE) 

IF (LTRUE>GT.O)60TO  6SC 
CONTINUE 

RftV  leaving  RPP 

IF (nASC.GT.NRPPIOOTO  6*0 
IF (LSURFtbaot 700*660 
CALL  RPP?(lSURF*XP,IRP) 
irURP.GT.flJeoTo  631 
IRPRIMbO 

return 

retrieve  LQCATIon/NUMHER  of  region  enter  list 
compute  SEGINNING  and  end  of  list 

ltrue«o 

L0C«LB0DT*3* (1  BP-1 » 

LOC»LOC*1 

CALL  UN2(LOC*LEnT,l£AV) 
l0C«L0c*1 

Call  unjIloc'Nent.neavj 
Jl»LENT 

J?»LENT*NeNT-l 
IFIJI.GT. J2)G0T0  700 

determine  region  point  XP  nOH  entering  in  new  RPP 

oo  632  J«JI ,J2 
IRPRIMBMASTERt J) 

CALL  MOMI (IPP«|M*LSUftF. IRP«LTR0E» 
1F(LTRUE*GT.O)GOTO  650 

continue 
continue 
goto  too 

REGION  POINT  XP  entering  MAS  BEEN  OtTERNiNEO 

1F(1R.EG*IRPRIM)G0T0  660 
IF tSl.EOtO. >G0T0  660 
IF tSl tLT.o • IGOTO  70O 
IF(ABStSl) .LE.I.oE-gIOOTO  660 
IF  t IVOLUM.eO. ITESl return 
IF  « ITESTG.EO. ITES) return 

RETRIEVE  SPACE  AND  COMPONENT  CODE  OF  REGION 

LOCMLIRFO*Ifl-l 

CALL  UN2tLOC*ICOOE.lOENT) 

LOC»L1RFO*1RPRIM-i 

CALL  UNgtLOCflCOOEltlOENTiI 

irtlOENT.EO.llGOTO  655 


FIG.  83.  (Contd.) 
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IFdOENT.CO.IDENTlISOTO  660 
return 

655  IF  (ICOOE.NEilCODEp  return 
660  IR*IRPRIM 
GOTO  20 
C 

cto  start  of  error  diagnostic  section 

C 

TOO  IERfl»lERR*l 

write  t6««04>IERR 
C 

CTl  COMPUTE  ORIO  CELL  NUMBER  IF  8l  NOT  CaLLEO  GT  VOLUm  OR  TESTS 
C 

IF(IVOLUM.EQ.lTE5.OR.ITESTQ.EQ«irCS}0OTO  705 

IHsABSIM/CELSIZ  )*.5 

lFtM.LT«0.>lM«-IH 

TV»A8S(V/CELSIZ  )*,5 

IFtV.LT.O.I  IV--IV 

WRITE  (6»'»05>1H.IV 

705  WRITE  {6*9o6) Jl • J2iLSURF«NASCtIR»$H*Si»WB*AB 
C 

Cl2  COMPUTE  COORDINATES  OF  *P  AT  TIME  OF  ERROR 
C 

X0OU)>A8(l»-DIST 

*eo(2>«xe(z>-oisT 

X0O(S)>XB(3)-OIST 
WRITE  (6f9oT) KBOtOlST 
WRITE  (6«90S) 

NN«N90dT*NRPP 

C 

Cl3  print  out  pertinent  data  FOR  ALL  BODIES  IN  REGION  INTERSECTED 
C  8Y  RAT  FOR  ERROR  aNaLTSIS 

C 

00  750  I«ItNN 
L0C«LI0*1-1 

CALL  UN3<L0C' 1} *l2tl3) 

IF(KLOOPtNEil3)GOTO  790 

IJFwLRIN*I-i 

RIN*ASTER(1JK) 

ijk-lrot*i-i 

ROUT>ASTEfl  (UK) 

IF  (fllN.NE.ROUTjOOTO  7)0 
WRITE  (6»910)RINi1 
^  GOTO  750 

710  IFtA0StRlNl.NE.PlNF>6OTO  7Z0 
IF( ABS(ROUT)-PINF) 7AO»750i7*0 
7Z6  IF(RIN»OISTI730*7A4*7A9 
730  IFlR0UT-0IST»7Alt7*Z*743 
C 

740  WRITE  (6»91l)RINtR0UT»n*lZiI 
GOTO  750 

741  WHITE  (6i91Z)RIN.R00TrIl.IZ»I 
GOTO  750 

74Z  white  (6»913)RIN.R0UT#Ii«IZ*I 
GOTO  750 

743  WRITE  C6*9l4tRIN.flOUTf  n»lZ*I 
GOTO  750 

T44  write  t6«9I5)RIN*ROUT«Il*12*I 
goto  TfiO 


FIG.  83.  (Contd.) 
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745  I4A1TE  (6*916)RlN*R0UTtlltI2(l 
750  CONTINUE 

MRITE  (6t9l7) IERRtlERR«ICRR«lERR 
TRPRIMa»l 

800  IE<lERR.8E.NeiERRtWRITE  (6«9ie)N0U*^R 
return 

END 


FIG.  83.  (Concluded) 
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SUBROUTINE  HOHl  ( JRee*C5URrtNEX,l.Tf)U£| 
dimension  master (10000) 
common  aster (lOOOQ) 

COMMON/PAREM/XB  ot  tWB (31 « ir 

COMMON/QEOM/L.BASE«RlN«ROUTfLRI*Lm>(RlNptICRNtDl$7 

COMMON/UNCOeH/NHPPfNTRIPfNSCAL»NB0O^»««NA*»LT«IP,v,SCAL*LRE80* 

1  LOATAil.RINtLROT«L10tLOCDA«llS«lJO>LBOOV«NASCfKtOOR 
COmmOn/OAVTS/ IGRIOtLOOP* I NORM 
COmmON/WHICH/NBO 
equivalence (aster* MASTER) 
c 

901  format (1  HO* 3ZMERR0B  IN  0l  AT  lAO  BAD  ITYPEtSXf AHITT«»l5) 

C 

LncBLRE8D*JRE0-l 

C 

Cl  RETRIEVE  NUMBER  OF  BODIES  IN  REBlON  AND  LOCATION  OF 
C  OPERATOR/BODY  LIST 

C 

CALL  UNZ(LOCiLOcOtNC) 

C 

C?  RETRIEVE  FIRST  OPERATOR/BOOT  FROM  LIST 

C 

CALL  UN2(LOCD*IOP*NaOl 
N-1 

I0PER*I0P 

C 

C3  retrieve  Enter  and  exit  surface  numbers  and  number  of  last  ray 

c 

10  ITEMPaLl0*N80-l 

CALL  UN3(ITEMP»lRI*LRO«LOOP) 

c 

ca  retrieve  body  type  and  location  of  Data 

c 

ITEmPblR00Y*3« (NBO-1 ) 

CALL  UN2(ITEMP«ITvPE*L0C0A) 

IFILOOP.NE.KLOOPloOTO  30 

c 

IFdTVPE.OT.lllGOTO  40 

c 

CA  retrieve  HIN  and  rout  for  current  body 

c 

IJKaLRlN*NBO*l 

RlNaASTERdJK) 

IJKaLRaT*NaO-l 
rout-aster  dJK) 

IFdTrPE*LT*10)OOTO  3io 

c 

Ca  is  next  RlN/ROUT  SET  REQUIRED  FOR  TOR  OR  ARS 
C 

IFIROUT.LT.O.IOOTO  400 
IF (OIST.LE. ROUT) goto  31o 
c 

30  LRI-l 
LRO-1 

ITV-ITYPE-J 

IFdTY,GE.i«AN0.ITY.Le«12)00T0  toO 
40  IERR-IERR*! 

write  (6»»oinTvPe 
return 


FIG.  84.  Source  Listing,  Subroutine  WOWI 
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Ct  compute  RIM/ROUT  POR  CURRENT  §OOT 

r  RPP  BOX  SPH  RCC  REC  TRC  ELL  ARB  TEC  TOR  aRS 

100  OOTO( lio»l20*l30*l40*l50»lOO*l70*iBO*lOO*200»210*220> *I  » 

no  CALL  RPP(NBO» 
goto  300 
120  CALL  BOX 
GOTO  300 
130  CALC  SPM 
GOTO  300 
lAO  CALL  RCC 
GOTO  300 
190  CALL  REC 
GOTO  300 
160  CALL  TRC 
GOTO  300 
ITO  CALL  ELL 
GOTO  300 
180  CALL  RAW 
GOTO  300 
100  CALL  ARB 
GOTO  300 
200  CALL  TEC 
GOTO  300 
210  CALL  TOR 
GOTO  300 
220  CALL  A«S 
C 

300  1JK»L10*N80-1 

master  ( IJKl  “KLOOP*  1 15**  <LR0*64*LH1  > 


C 

c« 

c 


310 


C 

320 

C 

330 


OETERMINE  CORRECT  RIN/ROOT  ANO  STORE  IN  ASTER  ARRaT 
lF(ROUT.LEt0t)6OTO  33o 

lF(A0StHlN-OlST) ,gT,OIST«i«0E-6»8OI”  320 

RIN»01ST 

GOTO  330 

1FCA8S(ROOT-OIST) .LE«D1ST41.0E-6>ROUT»OXST 

IJK«LR1N*N80-1 
aSTER(1JK)»RIN 
IJK«LR0T»NB0-1 
aster <1JK) -ROUT 


C 

CP 

c 


TEST  CONDITIONS  FOR  OoiNT  XB  IN  REGION 
*00  IF(I0PER»6T.*)00T0  500 


UNDER  TEST 


CIO  <♦)  OPERATOR  TEST  RIN.LE.OIST.LT.RqUT  POInT  Xb  1N  BODY 

^  if<rin,6T.oist)60to  too 

IF  «OIST-ROUT)600«TOO»TOO 

Cll  «-)  operator  test  ROUT.LEtO  OR  OIST.LT.RIN  OR  01ST.OE»ROUT 
c  point  XB  OUTSIDE  OF  BOOT 

c 

900  IFIROUT.LE.OtJGOTO  600 
IF(0IST.lT,RIN)60T0  600 
IF«0IST.EQ.RIN)G0T0  TOO 


FIG.  84.  (Contd.) 
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1F*015T.LT.B0UT)Q0T0  too 

c 

Cl 2  CHECK  next  soor  IN  qperator/body  list 

c 

600  IP(N.6E*NC)G0T0  800 

N«N«v 

L0CD"L0CD*l 

CALL  UN2tL0c0*I0PCRtN80) 
if(iopep>eo*i*or*ioper*eo«s)ooto  boo 
GOTO  10 
C 

Cl 3  fORl  OPERATOR  TEST 

ALL  («)  OR  (•»  IN  (OR)  SERIES  MUST  UE  VALID 

Too  irdOP.NE.ltANO.IOP.NE.G}  RETURN 
IF (NtGE*HC>HETURN 
NaN*l 

00  710  NN*NtNC 
LOCO>LOCO«i 

CALL  UN2[L0CD«I0PER*Nm0> 

IF (IOPeR.EO.I .Ofl.IOPEH.EO.StGOTO  TzO 

TIO  COnTINIJF 
RETURN 
720  H*NN 
goto  10 

4  point  xe  WITHIN  CURRENT  REGION.  LTRUe  ■  1 

800  LTRUE«l7RUE*1 
return 
END 


FIG.  84.  (Concluded) 
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SUBROUTINE  RPPtNBO) 

DlMeNStON  PB  tLR  (6)  .LST  (6) 

dimension  master (1 OOOOt 
common  aster (I  0000 > 

COHMON/PAREm/XBO)  (UBO)  *ir 

COMM0N/QE0M/tBAS£,RIN.R0UT.LRl»LRO.PlNriIERR*0lST 

C0HM0N/UNCGER/NRPP*NTRIP«NSCAL*Ne0t}Y(NRMAX*CTRlP*USCAL4LREQ0* 

I  LOATA*LRIN*LROT.tIOtLOCDA< Il5»lJO*L80DV»NASC»t<LOOP 

equivalence  <MaSTcR*A5TeR) 

^  ROl  format ( IMOflZHERROR  IN  RPP/AM  t  ■* I Ifl •5A»*HN0O** 1 lO'SXf 3HIR«f 

I  IlO/AH  XB-i3E20.I0/*H  WBb*3E20* 1 O^'aH  PRmiBEzO • Iq/AH  LR*«6I1o) 

Q 

Cl  SET  UP  SIX  MCMSEfl  ARRAY  TO  REPRESENT  COORDINATE  PaIRS 
C 

LST(I)»1 

LST(2)«i 

LSTt3»-2 

LST  t4)>2 

L5Tt5)*3 

LSTt6)"3 

L*0 

PH  ( 1 1 

PH(2)aO. 

C 

C?  RETRIEVE  THE  SIX  BOUNDARIES  OF  THE  RpP 
C 

DO  10  l«lt6 
XS(I)>S(NBO*I) 

10  continue 

c 

DO  IQO  Iait6 
n«LST(lJ 
TEMP«XS(I)*XBtn) 
iFtwsnin  2o*iou*3o 
20  ir(TEMPUO*10O*lO0 
30  IF(TEMP,LE.0.)G0T0  100 
4ft  TRV*TEMP/VB<11) 

DO  60  J"l»3 

IFlJtEQ^IIlQOTO  60 

c 

CY  COMPUTE  InTERSECT/PLANE  COORDINATE 

C 

XHY«XBU(*TRY«V9<J) 

CA  determine  if  intersect  occurs  VITMIN  boundary  of  plane 

c 

If  ( (XS(2Ast-lt-XRY)«(XRY-XS{2*JJ )  iLTt 0,1  GOTO  lOO 
60  CONTINUE 
L*L*l 
C 

Cn  COMPUTE  DISTANCE  TO  INTERSECT  POINT 

C 

PR(L)«TRY 

LHtL>»! 

IF(L<EQ,2)G0T0  130 
IF(L«LT.2)G0T0  100 
WRITE  (6*Q01>L*NB0tlRtXBiWB*PR*LR 
BftUTa-PlNF 
return 
100  continue 

FIG.  85.  Source  Listing,  Subroutine  EPP 
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GOTO  UO 
C 

no  ir(A8S(PR(|)>PR(Z)).LEtPR(ll*1.0C"G>OOTO  200 
iriPR(l)«PR(2)  >Uo*1AO*150 
C 

Cf>  COMPUTE  RlNt  ROUTt  AND  SURFACE  NUMBERS  OF  INTERSECTS 
C 

UO  RIN«PR(1) 

(.RUtRll) 

RnUT«PR(2) 

LR0»I  R(2J 
RETU>  N 

ISO  RINal  R(2> 

1.R1»LR(2) 

ROUTaPR(l) 

lro»lr<i> 

return 

c 

UO  IF(L*0E*1)00T0  180 
C 

Ct  assign  value  to  rout  for  no  intersection 

c 

170  ROUT--PINF 
RETURN 
C 

CA  ray  ORIGINATES  WITMIN  RPP 
C 

ISO  R1N««PINF 

lruo 

RriUT«PR<l) 

(,R0«LR(P 

return 

C 

C9  determine  if  Ray  originates  MITHIN  RpP  OR  MISSES 
C 

200  00  220  J*lt3 

IF(X8(J).LT.XS<2*j«i))00T0  170 
IF(X8(J> «0T«XS<2*J) lOOTO  170 
220  CONTINUE 
GOTO  180 
END 


FIG.  85.  (Concluded) 


662 


TN  4565-3-71  Vol  II 


SUBROUTINE  BOX 
DIMENSION  MASTERf lOOOO) 

COMMON  aster (10000) 

COMMON/PABEM/XB(3)  11X6(3)  •!« 

COMMON/flEOM/LeASe.RlN.ROUT,LRt»LftO,PlNf tIERRfOlST 
CnMMON/UNCGEM/'NRPP«NTHlP»NSCALtNBOoT,NRM*XfLTRlP»L5CAL»t.RE60» 
I  LDATA*LRtN*LROT,L10il,OCOAtIlS*UO*LBOOY*NASC*KLOOP 

equivalence  (HaSTeR»aSTER» 


C 

Cj 

C 

C 

C? 

c 


c 

Cl 


retrieve  location  of  box  vertex  and  hi  coordinates 

CALL  UN2(LOCDA»lV,tHn 
LOC“LOCOA*1 

retrieve  location  of  box  H2  and  M3  COOROINATES 


CALL  UN2(L0C. IH2. IM3) 
rINboPINF 
BOUTbPINF 
no  105  I"l»3 
tF(I-2)ll»12»I3 
U  II-2 
on  T  O  U 


12 


”■1 

GOTO 


U 


13  n«3 

1*  Abo. 

VRbo. 

Bbq  , 


compute  VECTOR  DOT  PRODUCTS 


on  15  jBl ,3 
JVbI V* J 
JABlMl*J 

VPBVP* {ASTER (JV-I J-X6( J) )*ASTtR(JA-U 
iXBB*iXf)  ( j)  ‘aSTeR  <  Ja*i  ) 

AbA*aSTER( JA-1 I **2 

15  continue 

1F(M)30*20<A0 
20  IF (-VP,LT,0.)GOTO  200 

ir(-.vp-A)ioo*ioo*200 

c 

c*  COMPUTE  ROUT 


3ft  CPbVP/V 
L0«2*II-l 

IF (CP.LE*0* ) OOTO  200 
C 

C5  COMPUTE  RIN 

C 

CMb  tVP*A)/W 
LI-L0*1 
GOTO  50 
C 

Ca  COMPUTE  ROUT 

C 

40  CP"(VP*A)/w 
LOBg#!! 

IF(CP.LE*0.100TO  200 


FIG.  86.  Source  Listing,  Subroutine  BOX 
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i?  COMPUTE  PIN 
C 

CMbVP/W 


c 


LI-LO-1 

60  IEI«0UT.LE.C*»>00T0  80 
POUT«CP 
LPOmLO 

SO  IE<01N,QEtCM>aOTO  inA 
P1N«CM 

loo  IMI»1H2 
JH2»IH3 
105  CONTINUE 


If (AtS(PlN-ROUT) ,CE.ROUT«l, 

If «R  .n,ut,routjretumn 


200  RINaPlNf 
ROUTa-PiNf 

return 

ENO 


FIG.  86. 


OE*6)OOTO  200 


(Concluded) 
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C 

CT 


c 


c 

C5> 

c 


subroutine  sph 
common  aSTERUOOOO) 

C0MM0N/PAREM/XBt3)  •WBtsWIR 

COMMON/aEOM/LB*SEtRIN?ROUT»LRI»t.RO»PlNr»lERB»DlST 
COMMON/UNCQEN/NRPP»NTRlP»N5CAL»N80o“»NflM*)^»LTRlPtU*CAL*l*RE80» 
1  LOAT*tLRINfLROT.i.lO*tOCDA»ll5»l30*L800Y»NASc»KLOOP 

retrieve  location  of  spm  Vertex  ano  radius 

CAUL  UN2(L0C0A,rTENPfIZ> 

R>ASTER(12) 

ITEmP"ITEMP*1 

OX-XB  <i ) -aster  1 1 TEMP-1 ) 

OY«XBi>l-ASTERnTEMPt 
oz-xa ( 3I -aster ( itemp*i I 
BmOX'^Wb  (lt*OY*WB(2»  •OZ*<ie(3t 
C*OX*P**OY*oY»OZ*oZ-R*R 
DIS«B»0-C 
IF  tC*OT.0i}<3OTO  10 

RAY  originates  WITHIN  SPHERE 

RIN«-PlNf 
ROUTaSgRT (OlSt -B 

return 

10  IF(D1S»OT.O*)OOTO  20 
RAY  MISSES  SPHERE 


C 


c 

C4 

c 


c 

c 


RINaPiNF 

R0UT«-P1NF 

return 

HAY  intersects  SPHERE 

20  DISaSQRT tOIS) 
RINa-B-OIS 
ROUT"-0*O1S 

return 

ENO 


FIG.  87.  Source  Listing,  Subroutine  SPH 
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SUflflOUTlNC  RCC 
DIMENSION  V (3>  tH(3t 
DIMENSION  MASTEB(lOOOn) 
common  ASTEBUOOOO) 

COMMON/PARCM/XB (31 tMB(3I  *IR 

COMMON/OtOM/L8ASE»RIN»HOUTtl,Rl»LfiOfPlNF»IERR*oIST 
COMMON/UNCOEH/NRPPiNTHlPtNSCALiNBODYtNRMAXtLTRlPiLSCALtLREQOt 
1  LOATAiURIN*LROTtLIO*LOCOAtllS«l30*LBOOYtNA$C*KtOO^ 
equivalence  (ASTERtMASTERI 
C 

Cf  retrieve  location  of  RCC  vertex  and  HEIOHT  VECTOR  COORDINATES 

c 

CALL  UN2(LOCDAtIV*lH> 

C 

C>  RETRIEVE  LOCATION  OF  RADIUS 
C 

IRRbmASTER (L0CDA»1 ) 

C 

Cl  RETRIEVE  COORDINATES  OF  VERTEX  AND  HEIGHT  VECTOR 
C 

M(I(-ASTER(IH) 

M{2»»ASTER{IM*1 > 

M(3)»ASTER(1H*2I 

V(I)»ASTER(IV1 

V(2)«ASTER(IV*i) 

V(3JmaSTER(IV*2I 

84  RETRIEVE  RADIUS 

C 

RaASTERdRRl 

RIN—PINF 

ROUTmPINF 

C. 

cs  compute  R  squared 

C 

RSObRmR 

LRO»0 

LRI»0 

TOP«o. 

POT»o» 

C 

Ca  compute  vector  dot  products 

c 

MH«M t !>♦«(! (3) •H{3» 

VPH«H(i)*tV  (D-XBdt  »  *H(2)«(V(2I-X0(2)  >  *H  (3)  •  ( V  ( 3) -XB  t3> » 
*WB(2)*H(2l ♦W8(3I*H(3» 

C 

CT  COMPUTE  coefficient  OF  S  SQUARED 

C 

DENbHH«HH«wH 
00  10  I»IO 

T0P«T0P*IA8tI>*(XatI)-V(lt ) 

POT»P0T* ( X6 ( I ) "V ( I ) ) *»2 
10  CONTiNyE 

AMBOa-HH*TOP>WH*VPH 
UM«  tPOT*RSQ)*HH*VPH**2 
IF(HH)40*TO*50 

C*  SOLVE  FOR  RIN  AND  ROUT  OF  PLANE  INTERSECTIONS 
C 

4b  CP»VPH/VH 


FIG.  88.  Source  Listing,  Subroutine  RCC 


666 


TN  4565-3-71  Vol  II 


SO 

60 

TO 

BO 

00 


C 

C« 

C 


100 


no 

120 


130 


200 

c. 

CIO 

c 

210 


C. 

Cll 

C 

220 


230 

250 

C. 

CI2 

C 

260 


LCP-1 

LCM»2 
GOTO  60 

CP«(VPM*MHJ/»(H 

CHbVPH/MH 

UCM«l 

LcP"2 

1P(CP)300*60»S0 

cP»PiNr 

CMa>CP 

ir<VPH.OT.o*)QOTO  300 

1P<HH»VPM>300«00»00 

If («BS(OEN).OE.l.oe*6)OOTO  9o 

Rja-PlNf 

R2*P1NP 

GOTO  100 

Pl«0» 

R2*0» 

«MSOAaAMBO/OEN 
UMUbUM/OCN 
OISC«AMeOA»»2-UMU 
IF<OISC.LE.O*)OOTO  300 
SO>SQRT<01SC> 

SOLVE  FOR  RIM  AMO  ROUT  OF  QUADRATIC  INTERSECTlONt 

RlaAHB0A«S0 
R^aAMBOA^SO 
IF(CM.QT.Ri)OOTO  110 
RlNaRl 

LRI-S 
GOTO  120 
RINaCM 
LRI«LCM 

IF(cR.LE»R2)G0T0  130 
ROUTaH^ 

LROa3 

GOTO  200 

ROUTaCP 

LROaLCP 

IF(ABSIROUT-RIN) .LE.ROUT»i,oE*5>OOTO  300 
OOTO(2lO»210*220)tLRO 

determine  if  rout  intersects  plane  <»ITh1N  CYLINDER  CROSS-SECTION 

F 1 -DENiROUTP^B-E • a AMBOaROUT  aUM 
IF(Fll250*2S0f300 

DOES  ROUT  INTERSECT  OF  QUADRATIC  SURFACE  OCCUR  BETMEEN  %ANES 

FlaPOUTapM-VPH 
IF(Fl)300t250«230 
IF(F1*GT.HH)  goto  300 
GOTO(260*260*27o) *LR1 

determine  if  RIn  INTERSECTS  PLANE  PlTHlN  CYLINDER  CROSS-SECTION 

FlaDENaRlNaa2.2,a4MBDaRlN«UM 

IF<F1)310«310«300 


FIG,  88.  (Contd.) 
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C 

Cl  3  DOES  RIN  INTERSECT  OF  QUADRATIC  SURFACE  OCCUR  BETWEEN  PLANES 
C 

270  FX»RIN»WM-VPM 

IF(Fl»300»3l0t280 
280  IF (FX.LE.HHXOQTO  3to 
C 

ClA  RAY  H1$SE5  BODY 
C 

300  R!N>PfNF 
ROUT»-PlNf 
LRO»o 

LRI"0 

310  return 
END 


FIG.  88.  CConcluded) 


668 


TN  4565-3-71  Vol  II 


C 

Cl 

C 


h 

C 

c 

Cs 

c 

C 


c 

c« 

c 


c 

c 


c 

Cft 

c 


c 

c? 

c 


suenouTiNe  rec 

dimension  Vt3)>H(3) *At3> '0(3) 
common  ASTEfltlOOOn) 

DDMMON/RAnEM/XB(3> «1R 

COMMCN/GEOM/L0ASEtRINtROUTtLRI»tflO»RlNFtieRR»OlST 

C0MM0N/UNC0EM/NRPP*NTRIPiNSCAL.*NB0DV«NRHAXfLTRlP«i,5CAL*4REB0* 

I  LDATA*LRIN<LROT«L!0*LOCDA*ll5*l30*LaOOYtNASc*KLOOR 

retrieve  location  of  REC  VEATEX  and  HEIdTH  VECTOR  COORDINATES 

CALL  UN2(LOCDA*tV.tM> 

LOC"LOCOA*l 

RETRIEVE  LOCATION  OF  REC  COORDINATES  FOR  AXES 
CALL  LiN2tLOC,IA,18) 

RETRIEVE  coordinates  OF  VERTEX*  HEIGHT  VECTOR*  SEmI-MAJOR  AXIS 
AND  SEMI-MINOR  AXIS 

VaiMASTERlIV) 

V(2}»ASTER( IV*1 > 

V<3>«a9TER(IV*2) 

HH»«ASTER(tHt 

H(2l»ASTeR!lM*i) 

H(3»»aSTER(1M*2) 

A(l)«ASTERtIA) 

A  (2t»ASTERUA*l ) 

A(3)*ASTeRtIA*2> 

R (1  >>ASTER(1B) 

8t2)«ASTER{IB*i) 

8(3) bASTERI IS*2) 

8INa>PtNF 

RnUT«PlNF 

LRI*0 

COMPUTE  OOT  products  OF  A, A  AND  8.B 

AA-At 1)*A(1 )«At2)*A (2t«A (3>«A(3) 
8e>8tl}*B(l)*e(2>*B<2)*B<3)*B(3) 

COMPUTE  (V-X8>  FOR  X»Y,Z  COORDINATES 

V1XB1>V(1 
V2XB2>V (2)-XB(2) 

V3Xa3«V(3)-XBO) 

transform  XBIXtY.Z)  TO  THE  COORDINATES  OF  THE  REC 

VPA>VlXBl*Atl)*V2XB2*A(2lAV3XB3*AO) 

VPB"VlXei*B(l>*V2XB2*8 12 > •V3XB3*a t3» 

transform  NatK*Y*Z>  TO  The  coordinates  of  the  REC 

waAaMB(l)»A(l)*VB(2}»A(2}*w8(3)*A<3} 

M8B>WB(l)*8(l)«W8t2)*H (2> *WB (3> *8 <3^ 

WBAWBAmMBAawBA 

W8eWBB«WBB«waB 

AAAA«AA*AA 


FIG.  89.  Sourcf  Listing,  Subroutine  REC 
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BBBd*B8*0B 

AMB0*“H**VP**BB8B*'*B9*VP9«AAAA 

UM«BBBB«VPA*VPA*AAAA*VPB*VPe*A*A*«BBBB 

OCN«HBAPaA*eBBB*WBaWBB*AAAA 

IF<A6S(oeN)«UE«l.oC»6lSOTO  10 

AMSDA«AP80/0EN 

UMU>UM/oEN 

0ISCbAPBDA**2«UmU 

trfDlSc>LE.0*)OOTo  jOO 

Sa  compute  the  intersect  points  on  the  quadratic  SURfACC 

c 

SOaSORTIOlSC) 

Ri'arboa-so 

R2a«MBOA«$D 
SOTO  20 
id  ri«-pinf 

R2*PlNr 

WH«we(i)*H(i)*WB(2)*Ht9)«PB(3)PH{3) 

VPH»ViXb1*H  11)  •V2lt02*HT2)  ♦V3X03PN(3) 

c 

Cq  determine  if  ray  PARALLEi.  TO  PLANAR  SURFACES 
C 

IFIMHlAOfTOfSO 
AO  IF<VPH.OE*0*IOOTO  300 

c. 

CIO  COMPUTE  THE  INTERSECT  POINTS  ON  THE  PLANAR  SURFACES 
C 

CPaVPH/WH 
CM* ( VPH*HH) /HH 
LCP»1 
LCM«2 
OOTO  100 
So  VPMHH»VPH*HH 

IF<VPHHH,LE*0*)OOTO  3o0 
CP*VPMMM/NH 
CM»VPmXNh 
LCM*l 
LCP»2 
OOTO  100 
To  CP"PINF 
CM9-CP 

100  IF  (CM.OT *Rl )00T0  110 
C 

Ctl  PIN  FOR  THE  quadratic  SURFACE 

RINbRI 
LRI»3 
90T0  120 

t2  RiN  FOR  A  Planar  surface 

110  RINbCM 
LR1"LCM 

120  IF<CP.LE.R2)fl0T0  l30 
C 

Cl 3  ROUT  for  the  quadratic  SURFACE 
C 

ROUTaR2 


FIG.  89.  (contd.) 
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L«0«3 
OOTO  200 
C 

ci*  ROUT  roR  *  rlanar  Surface 
c 

130  ROUT-CP 

lro*lcp 

200  IFUBS(ROUT-RlN),LE.ROUT#ViOE-S>OOTO  300 
GOTO(2IO«210*220) itRO 

CiS  OETERWINC  IF  ROUT  Of  PlANAfl  SURFACE  OCCURS  WITHIN  EULIPTIC 

C  cross*section 
C 

210  F1«DEN«ROUT*«2-2.«*MBO*ROUT^UM 

TFIF1»250»250.300 

Q 

ci6  determine  if  rout  of  quadratic  occurs  between  planar  surfaces 

c 

220  Fl-ROUTRWM-VPH 

IF  tFl)300»250»230 
230  IF(F1.0T,HM1OOTO  300 
250  OOT0l260*250»270) •LRl 

CiT  determine  if  RIN  OF  PLANE  WITHIN  ELLIPTIC  CROSS  SECTION 
C 

260  FlaOCNwRlN«*2«2,«AMeO«RlN«UH 
IF  <Fl»3IO«310t300 

cie  determine  if  RIn  of  quadratic  surface  between  planar  surfaces 

c 

2T0  F1“RIN*WH-VPH 

1F(F1>  300*310*280 
280  IF(F1,uE.HH)G0T0  310 
C 

CiR  RAY  MISSES  BODY 
C 

300  RIN»PINF 
R0UT--PINF 
LRl-O 

LROaQ 

310  RETURN 
END 
C 

c 


FIG.  89.  (Concluded) 
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SUBROUTINE  TRC 
DlMlNStON  V  <3) iH  t  31 
OlMeNSlON  MASTERtlOOOO) 

COMMON  ASTER  II 0000* 

COMMON/PaREN/XB<3)  iilBtsIttR 

COHHON/GCOM/CBASe.RINiROUTtLRltUROfPlNFdERRtDlST 
COMM0N/UNC0EN/NRPP.NTRlP.NSC*L»Ne00i'tNRMAX»LTRlRtL5CAL*LRC«0t 
1  t.DATA*LRlNtLROr*l.IO*COCOAtllStl30*LBODY*NASC*KLOOl* 

COUI valence IMaSTER • ASTER) 

c 

Cl  RETRIEVE  LOCATION  Of  TRC  VERTEX  AND  HEIBHT  VECTOR  COORDINATES 
C 

CALL  UNZILOCOAtlVdH) 

loc«locda*i 

c 

c?  retrieve  location  Of  TRC  RAOII  fOR  LONER  BASE  AND  UPPER  BASE 
C 

CALL  UNZ(L0C»IR8»IRT0P) 

C 

CS  RETRIEVE  COORDINATES  Of  VERTEX  AND  HEIGHT  VECTOR 
C 

V<ll«ASTER(IVt 

V(2)»ASTER(IV41) 

V(3)»ASTEfl(lV*g) 

H<t|aAST£RllH) 

Ht2)«ASTER(IH*l ) 

M(3)aASTCR(IH*2) 

C 

c*  RETRIEVE  Radii  of  loner  and  upper  bases 

C 

RB-aSTER(IRB) 

RTaASTERIlRTOP) 

RINa-PINf 

ROUTaPlNf 

LROao 

Lfll«0 

InTSEC>0 

TNTRi«o 

tNTR2«o 

C 

CA  COMPUTE  COORDINATES  Of  (V-XB) 

C 

vixBi>v(ii*xeii} 

V2XB2«Vl2)-X8l2> 

V3XB3aVl3)-X8»3t 

C 

Ca  COMPUTE  dot  PROOUCTS 

C 

PVPVbVIXBI«VIXB1*V2XB2«V2XB2*V3XB3»V3X83 

VPNaViXBl*NBU>'^V2XB2*Nai2l*V3Xe3*HHO} 

WH  ■NB(l)aH(l) *Na(2)*H(2}«NB(3>*H(3} 
VPMaVlKBl»H(l)-*V2X82»H(2)AV3XB3*Ht3l 
MM*H(i) •Htl>*Mt2) •H(2) *H(3)»M)3) 

RTRBaRT'RB 

C 

Cr  COMPUTE  CZ  QUANTITY  Of  QUADRATIC  EQUaTION 

C 

R0RTVP>R6-VPH*RTRb/HH 

VPHHHayPHAHH 

UMbHH* (PVPV*RbRTVP**2) «VPH*VPn 
AMeOaHM»VPN-NM«(VPH-RTRB»RBRTVP) 


FIG.  90.  Source  Listing,  Subroutine  TRC 
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0CM«hm*wm*»2»  « I . *«TRe»«2/HM) 

C*  TEST  FOR  RAt  PARAUCU  TO  EITHER  SlOf  OF  COHi 

^  !rUBS<OEN).OT,l.0C-A>OOTO  40 
irlRTRB*CO«0*>OOTO  200 

C9  compute  intersect  with  quadratic  SURFACE  FOR  RAY  PARAUEU  TO  SIDE 
C 

naaUM/ (2**AMBO) 

F1*R2*HH*TRM 

c?o  test  if  intersect  between  planar  surfaces 

c 

IF(F1*LT*0«)OOTO  200 
IF(Fl*GT*HHieOTO  200 

intsec«intsec*i 

tF(WH.LE*0»>BOTO  to 
IF(RTRe)20t20»30 
10  IF(RTRa)30«30i20 

Cil  ASSIGN  SURFACE  EXIT  NUMBER  ANO  ROUT  FOR  QUADRATIC  SURFACE 
C 

20  LR0«3 
R0UT«R2 
GOTO  290 

Ci2  ASSIGN  surface  entry  number  and  RIN  for  quadratic  surface 

c 

30  L01*3 
R!N«R2 

INTSEC«INTSEC»1 
GOTO  210 
C 

40  AHB0A«AMBD/0CN 
OMUaUM/OEN 
0ISC"AMB0A*«2-UmU 
IF(OISC)350*200iSO 

8u  SOLVE  FOR  values  OF  QUADRATIC  EQUATION 


90  SOaSQRT (DISCI 
RlaAM80A»S0 
R2aAMB0A«SD 
FiaR2*WM»VPH 

TEST  r0«  INTERSECT  BETWEEN  PLANAR  SURFACES 


C 


60 

TO 


IFIFl.LT.OtIGOTO  60 

IFCF1.lE.MH)INTR2"INTR2*1 

FiaRl*WM*VPM 

tP(Fl»LT»0»)OOTO  TO 

IF(F1*lC*HHI60T0  80 

1FIINTR2*LT»1)G0T0  200 

pnUTaRE 

R1N»R2 

LR0«3 

LRI-3 

intsec»ihtsec*i 
goto  200 


FIG.  90.  (Contd.) 
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80  intri»intri*i 

tr(INTR2*QC«110QT0  90 
R0UT>Rl 

RIN«Rj 

|,R0a3 

lNT5EC>INT$eC*l 
GOTO  2Q0 

90  trtRl-R2)100(3SO*110 
C_ 

CIS  COMPUTE  RIN  AND  ROUT  FQR  QUADRATIC  SURFACE 
C 

100  RtNaRl 
ROUTaR2 

LR0»3 
LRI-3 
eOTO  300 
110  RINaR2 
ROUTaRi 
LPO-3 
t.RI-3 
GOTO  300 

200  IF(MH)210t3S0.250 
210  IF1VPH.OE.O*)GOTO  3S0 
CPaVPH/WH 

F l»CP«CP-2 . •CP»VPW*PVPV-fl6*R0 
IF  If  1 •qT# 0 • ) GOTO  220 

To  compute  rout  for  exit  from  v-plane  Surface 

INTSECaINTSEC*! 

ROUT»CP 
LROai 

IF{1NTSEC.GE.2)OOTO  300 
220  CM«VPHHH/NH 

F1«CM»CM*2.*UVP*(*WHI*cM-VPH)*HM*PVPV-RT»RT 
IFIF) .GT.o.IOOTO  380 

CTT  COMPUTE  RiN  FOR  ENTRY  INTO  V*H  PLANE  SURFACE 
C 

RINaCM 
LRI«2 
GOTO  300 

250  IF(VPMHM«LT.O.)OOTO  38o 
CPayPHHHyWH 

Fl"CP*C^"2«*l iyPN*«M)*cP*VPH)*HMaPVPV-RT*RT 
IF(Fl,QT.0.IflOTO  260 
C, 

Cl 8  COMPUTE  ROUT  FOR  EXIT  FROM  V*H  PLANE  SURFACE 
C 

INTSEC»1NTSEC*1 

ROUT»CP 

tRO-2 

260  IF (iNTSEC*OC>2>GOTO  3qo 
CMaVPH/WH 

Fl*CM*CM»2.«CM«VPN*PVPV-fl8»R0 
IF (Fl »QT» 0* I ®OTO  35 0 


FIG.  90.  (Cont.) 
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r 

c?9  COHPUTe  RIN  FOR  ENTRY  INTO  V-RLANC  SURFACE 
C 

RINvCM 

LRl»l 

C 

300  IF(ABS(ROUT-RINI-ROUT*1»OE-5)3SO»3SO*360 

C. 

CRO  RAY  MISSES  TRC 

^  350  RIN-PINF 

ROUTaaRINF 

LR1«0 

LROsQ 

360  return 

END 

C 

C 


FIG.  90.  (Concluded) 
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C 

Ci 

c 


c 

c» 

c 


c 

C3 

C 


c 


c 

CA 

c 


SUBHOUTINE  CCL 

dimension  roClAO)  .F0c18(3) 
dimension  master (lOOOO) 

common  aster (10000> 

COMMON/P ARCM/ xe 1 3 ) t  WB  ( 3 ) 1 1 R 

COMMON/oeOM/LBASC*RIN«ROUT*l.Rltl.ROtPlNF«IERRtOlST 

COMMON/UNCdEM/NRRPtNTHlPtNSCAL*NaOcY»NRMAX«LTRlR«uaCAL«i.REOO* 
1  LOATA»tPlN*l.ROTtLlOfLOCOAtllS«l30*LBOOV»NASc*Ki.OOP 
equivalence  lASTERtMASTER' 


retrieve  location  or  ELUIPSE  EOCI  aNo  LENOTH  BTORaOC  positions 

CALL  UN2(LOCOAtIVlilV2) 

IRRaMASTER(LOCOA«l) 

rOClA(l)aASTER(IV)) 

EOClA(2t«ASTER(IVl«l) 

FOClA(3)aASTER(lVi«2) 

EOc1B<i>«ASTER(IV2» 

EOClB(2)aASTCR(IV»«l ) 
r0CIB(3)»ASTER<IV2*2) 

CaASTERdRR) 

RINaPiNF 

ROUTa.piNF 


COMPUTE  coordinates  FOR  VECTOR  01  ANq  02 

01XaXB(l»-F0ClA(l| 

0lVaX8(2)-F0ClA(2| 

0lZaXei3)*f0CIA(3) 

02XaX8«l»-F0CI8<l) 

02VaXBl2)-F0CI6(2) 

022aXB«3)-F0CIB«3) 


COMPUTE  DOT  PRODUCTS 


Ala2.«(DlX«NB(l)»01VaHB(2)*01Z«pe(3)l 
A2"2»*  <02**MB  <  1  >  ♦02T*mb  <2*  *02^**'B  » 

Bia01XaoiX*01V«01Y«ClZ*Dl2 
B2"02*«02**02Y*02V*02Z«02Z 

COMPUTE  A  and  B 


AAa(A2.Al)/<2,ac) 

B8*<C*C*B2-81»/C2,*cI 

COMPUTE  lambda  ANO  MU 

ALAMOaAAaAAal, 

ALAMia I aA*BB<.S*A2) /ALAMO 
Ua(BB«BB-B2)/ALAM0 

COMPUTE  RIN  ANO  ROUT 

OlSCRMaALAMlaALAMl-U 

IF <CIScRM*LE.O*> return 

SORTOIaSORTIOlScRM) 

R!Na«ALAMj.S0RT01 

ROUTa.ALAMi «S0RT0l 

RETURN 

ENO 


FIG.  91.  Source  Listing,  Subroutine  ELL 
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SUBROUTINE  RAW 

OIMERSION  HI  *M3  O)  (3)  *ASQt3)  »PVU)  »fl  ( JJ 

common  ftSTERUOOOOt 
COMMON/PAREM/KBO)  »WBt3)  I  IB 

COMMON/0EOM/LBASE»»IN*ROUT*LRltURO|RlNF»IERR»OlST 

COMMON/UNCOEN/NRPP»NTRlP»NSCAL»NBODYfNRMAX*tTRlPfl,SCAL«LHEOOt 
I  L0AT*»LRIN»LR0T,LIO.L0COA»IU»l30*L800Y»NASCfKLOOP 

retrieve  locations  Of  VEBTC*  AND  LENGTH  VECTORS 


C  . 

C4 


CALL  UN2{LOCOA,IV,lHlt 


L0C"L0CDA41 

CALL  UNatLOCi IHgilMJ 


HJ  11)»aSTER(IH1) 

Ht  Igi  m*STER  ( iMp  1 ) 


HI (3}>ASTCflllHl«2t 

H2(l>"ASTERtIHZ» 

H2(2)»ASTCfl(IH2*lJ 

H2 (3> waster (1H2*2> 

M3li}«ASTCRtlH3} 

H3l2)WASTER<lH3*ll 

H3(3lw*STERIIH3*2) 

V(1)«A3TER(IV) 

Vt2>«ASTER(tV«l ) 

V(3)«ASTER(1V*z) 

RIN»-PINf 

ROUTwPiNf 


CMa-PlNf 


CF«PlNf 


L«0 

Liwfl 

R«0 

LRI"0 

LBO"o 


COMPUTE  A 

ASQtl}>HUl)»Hl  tl)«Hl{2)«Hl{2)*Hlt3I»Ml(3| 
AS0(2l4H2(it»H2ll »*H2(Z>whz(2} •M2l3)»M2t3J 
ASOt3}*H3(i)»H3<l) *H3(2>*H3(2t«H3l3i«H3(3l 

COMPUTE  P 


XBIV1«XB(1)-V(l} 

XB2V2*X0 12>-V (2) 

XR3V3-XB (3>-V (3» 

RV  1 1 ) wxeiVlAHl ( J  t ♦XBZVZAHl (2) «XB3V3*h1 (3) 
PV  t2l»xaiVl*M21l) *X82V2*H2(2>*X83V3*H2t3l 
PV  t3)»XBlVi»M3fi  )*X82V2»M3l2)*Xfi3V3*‘H3(3l 

COMPUTE  G 


8{l)WWBUt«Ml  U)  *WB<2j4H1  (2)  ARB  t3)  •Ml  (3) 
G(2)BW8(l)PH2(l}«Na(2)*HZ(2)  *«IBO)*H2t3> 
OI3)wW8(l)PM3(I»*W8tZt*H3lZ>*WBt3>*N3(3l 

00  lAO  I*li2 
If  (Gdl  )  10*110*60 
10  If 1-PVin )20«A00*400 


FIG.  92.  Source  Listing,  Subroutine  RAW 
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C. 

c 


c 

c 


COMPUTE  Si  OR  S3 


20  TeMR«-PVII)/6(l) 

IP(TeMP-CPl30*130*130 
30  CR^TEMP 
l.«I 

80TO(40*SO>  *1 

*6  LR0«3 
80T0  130 
80  LRO«l 
OOTO  130 

00  IP<-RVCIl.LEt0#)8OTO  130 


COMPUTE  Si  OR  S3 


TEMP«.PVCli/8(l) 
IP«TEMP,LE.CR)OOTO  ISO 
CM*TCmP 
Kwl 

OOTO(9o*100) *1 
90  LR1»3 
GOTO  130 
100  LRIal 
GOTO  130 


no  ir(pv(n .cE.onooTO  aio 

Tr(PV(I>*OE*ASQ(I))QOTO  610 
130  l.l«Ll*l 
UO  CONTINUE 


C. 

C7 

C 


1PIO(3))15o*210*230 
COMPUTE  SO 


ISO  TEMPaASQI3)-PV(3) 

iPiTEMP.QE.onOOTO  180 
TrMParEMP/0(3) 

IP (TEMP«LE.CM)00T0  190 
CMbTEMP 


K»3 

tRI«0 

.  186  IP(«PV(3n  I90t4oo*400 
c 

C8  COMPUTE  S8 


190  TEMP«-PV«3»/G(3) 

IP < TEMP. 8E.CP) GOTO  290 
CPaTEMP 
L«3 
LROaS 
GOTO  290 
C 

210  IP(PV(3>.LE.Ot)GOTO  400 

IP (PV (31 -ASO (3) I 29o»2»0»*00 

C9  COMPUTE  Ss 
C 

230  IP(-PV(3) .LE.OtlGOTO  200 
rEMP«-PV(3)/0(3) 


FIG.  92. 


(Contd.) 
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IFlTCMP.LCtCH>80T0  2»0 

(JHbTCMP 

K<>3 

LRI»5 

ijO  COMPUTE  $6 
C 

260  TEMP«ASa(3)-PVO) 

IF1TCMP.LE.O*>eOTO  400 
TEMP*TEMP/8t3» 
IP(TtMP.0e,cP>90T0  290 
CP"TCMP 
U-3 
LP0>6 
C. 

Cl  1  COMPUTE  S2 


290  AQa*$0(2)*Q(l)*A$0{l)*0(2) 

PV(4>«PV(l}*A$OI2J«PV(2l*ASQ(lt 
T0P«ASQlU«A$atzl>PV(4> 
ir (A8}910t350t330 
JIO  7EMP»TgP/Ae  .  . 

IPtTEMP.LE.CMlOOTO  380 

CmbTCHP 

K«4 

UP  I  "2 

OOTO  380 

330  IFtTOP.UT.Of )OOTO  400 
TtMP*T0P/A6 

lFtTEMp«CPl 370»3eo»300 

330  lF(PVt4}.UE*0*>QOTO  400 
IF (•700136014004400 
370  CP*7EMP 
U-4 
LP0»2 

360  IF(U«K,LC*0)60TO  400 
RriUT»CP 
RINbCM 

400  IF(R0UT>6EtPlNF)00T0  810 
IF(ROUT*UE«0*)60TO  eio 
IF(RtN.6E.fl0UT}00T0  BlO 

IP(AB$(RIN-ROUT).eT.ROUT»i.0C-5>6OTO  820 

810  ROUT--P1NF 
R1N*P1NF 
URO*0 
LRl^O 


FIG.  92.  (Concluded) 
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SUBROUTINE  ARB 
DIMENSION  AA(6i4)  «XPO) 
common  ASTER(lOOOO) 

COMMON/PAREM/xe«3»  »NBI3) tlR 

COMMON/OEOM/LB  A  SE  .  R I N  .  ROUT  ♦  LR  1 1 1.«0  .  P 1 NP  #  IERR  1 1)  I  ST 
COMMON/UNCOEM/NRPP,NTR|PtNSCAL.NBOOT.NflMAX.LTRlP*LSCAI.»CREOO. 
1  L0ArA*LRlNiLR0T«Ll0tl.0C0Atll5«l30*L80DY*NASc«Rt0O^ 

C 

C7  RETRIEVE  planar  EQUATIONS  FROM  ASTER  ARRAY 
C 

UOC«LOCOA«l 

on  10  1»1»« 

LOC«LOC«l 

CALL  UN2(LOCiLO*LCI 
AA(Iti)«ASTER(LC> 

AA(It2t«ASTER(LC*l) 

AA<Ii3)«aSTER(LC*2) 

AA(I*a)"ASTCR(LO) 

10  continue 

RIN»*PINF 

ROUT«PINF 

LRO»o 

LR1*0 

SX»0t 

S2«0» 

l.l»0 

L2»0 

on  To  I"lt6 
C. 

C>  COMPUTE  numerator  ANO  OCNOMINaTOR  OE  DISTANCE  EQUATION 
C  -  . 

0«AA(I,A) 

SNUMM-O-AA ( I • 1 »  *<8  < 1 > -AA • X  *2) “XB  J2> "AA 1 1 »3) AXg (Jl 
SOEN»*a  < 1 1 1 ) "MB  < 1 » ♦AA  C I *2) •MB  «2>  *  AA  U  *3) •nb<s) 
IF<SOEN)20»T0t30 
20  lF(SNUM)A0t70*70 
30  iEISNUM»70«70.40 
C 

C7  COMPUTE  intersect  DISTANCE 

«6  SbSNUM/SOEN 
00  50  K»lf3 
XP(K)«Xb<K1»S*Ms(k) 

30  continue 

TEST  IF  intersect  POINT  IS  ON  aRB 

00  60  JalfO 
lECI.EO* JIOOTO  60 

T«AA(J*I)*XP(1)*aa(J*2)*XP(2)*AA(J*S)*XP(3)»AA<J*a) 
lF(ABSm,LE.i»o£-6»T»o« 

,  IFIT.LT.O. KIOTO  7o 
60  continue 

IFILI.OT.OOOTO  65 
Ll»l 
S)«S 
flOTO  To 

65  IE<ABS{S1-$1.0T.)*OC-6)OOTO  100 
TO  CONTINUE 


FIG.  93.  Source  Listing,  Subroutine  ARB 
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!F(LltZ0Ot20Qil9O 
100  92«S 
L2*l 

IF(A0S(S1-SZJ .LCtSl«l »0E*S»®OTO  ZOO 
IF<Sl-SZMl0»Z00»12C 
no  RtN»Sl 
R0UT«S2 
LSl-Ll 
LR0»1.2 

return 

120  RIN«52 
LRI«LZ 
130  ROUTES] 

LflOwLl 

RETURN 

ISO  on  160  UFl*6 

IFtLliCOtUlflOTO  1*0 

Ti«4A( J* 1 > "XB  <1 1 •** ( J»2) **8 (2J ♦** I J»3t •KB  0>*AAt J»*J 
IF(4BS«Tl>.LE.l«0C-6>Tl»0» 

IF (Tl.LT.0t)8OT0  200 
UO  CONTINUE 
80T0  no 

200  RINmPINF 
ROUT««PINF 

lhi«o 

LRO»o 

return 

Cno 


FIG.  93.  f Concluded) 
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Cl 

c 


c 

C7 

c 


c 

Cs 

c 

c 

c 

C4 

c 

c, 

c 

c 


c 

CA 


c 


c 

c? 

c 


c 

cn 

c 


i. 


SUBROUTINC  TCC 

OIMENSION  VX8(3)  «H(3)  tHNO)  tAA(J) 

dimension  h*ster«ioooo> 
common  ASTER(10000> 

COMMON/RaRCM/XBO)  iRBOI  f  ir 

CONMON/oeOM/LBASe*RINtROUT.LRl»L«0»RlNFtIERR»Ol»T 
COMMON/UNCOCM/NRPR ♦ NTR I P . NSC AL • NBOot , NRmaX  »  L  TR | P i LSCAL • tRCBO • 

1  i.oaTa*lrin*lrot*lio*i.ocda«ii5*13o*(.soov*naSc*kloop 

COUIValCNCE USTCRfMASTCR) 


retrieve  cocation  of  vertex  and  mei^t  vector  coordinates 

call  UN2 (COCOA (IVtlH) 
locmlocoa«i 

RETRIEVE  LOCATION  OF  NORMAL  AND  AXES  COORDINATES 

CALL  UNZILOCf IN,1AI 
LOC«LOc*l 


retrieve  LOCATION  OF  LENOTmS  OF  SEmUmaJOR  AXIS  AND 
semi-minor  axis  Of  base  ELLIPSE 

CALL  UN2(LOCtIRl,lR2) 


retrieve  LOCATION  OF  TME  RATIO  OF  THE  CAROER  TO  SMALLER  ELLIPSE 
IR3aMASTER(LOC*n 

retrieve  coordinates  OF  VERTEX  ANO  COMPUTE  COORDINATES 
OF  (V-XB>  VECTOR 


VXB(naASTCR(IV)-XB(l) 

VXBl2»«ASTER(IV*I»-XBl2» 

VXB(3»aASTeR(IV«2)*XB(3) 

RETRIEVE  coordinates  OF  HEIGHT  VECTOR 


H<l)aASTER(IH) 

H(2)aASTER(IH«n 

H<3»*ASTER(IH*2) 


RETRIEVE  coordinates  OF  NORMAL  TO  BASE  ELLIPSE 

HN(l)aASTER(lN) 

MN(2>*aSTER(IN*i) 

HN( 31  vaster (IN*2) 

RETRIEVE  COORDINATES  OF  SEMI-MAJOR  AXIS  OF  BASE  ELLIPSE 

AA<l)aASTER<lA) 

AA<2I«aSTER(Ia*I) 

AA(3I«aSTER(Ia«2) 

COMPUTE  SEMI-minor  axis  unit  vector  of  base  Ellipse 


CALL  CROSS (BBfAAfHN) 


FIG.  94.  Source  Listing,  Subroutine  TEC 
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C. 

cn 

c 


c 

ClZ 

c 


c. 

C13 

C 

Cl* 

c 


c 

CT6 


c 


20 


retrieve  LENOTHS  of  $EMI-HAJ0R  and  semi -hi nor  axes  or  BASE 
ECLIPSE  ANO  ratio  OF  L*R8€R  TO  SHALLER  ELLIPSE 

RlaASTERlIRl) 

R2>aSTeP(IR2) 

RR«*5TER{IR3) 

COMPOTE  LENGTHS  OF  SEMI -MAJOR  ANO  SCmI-MINOR  aXCS  OF  TOP  ELLIPSE 

R3BR1/RR 

R««R2/RR 

START  or  COMPUTATIONS  FOR  DOT  PRODUCTS 

MONbOOT(H»HN) 

HDAaOOTtHiAA) 

MD6*D0T 

WONaDOTIHBtHN) 

mda>dotihb*aai 

MD8a00TINB*BBI 

VXBONRDOT<VXB*HN) 

V)(60**00TtVXB*A*» 

VXBDB«00T IVXB*BB) 

TEST  TO  determine  IF  R*T  IS  PARALLEL  TO  TOP  AND  BaSC  PLANES 

IF(ABStWON).OT.O.OOOltQOTO  20 

COMPUTE  RATIO  ON  NORMAL  TO  HCIQHT  OF  MIT 

OAMMA  ■  -VXBON/HON 

IF<QAMMA.LT.o>0  *00*  OAMMA. OT*L.0>  ODTO  SOQ 
AaQAMMAAR3*Rl* I l.«OAMMA> 
aaOAMMA^RAAR?* 1 1 •*OaNMaI 
ASOaA*A 

BSOaB*a 

t*«vxboa*oanmaahda 

TB»VXa08*0*RR»*H0B 

OENaBSQANOA*MD***SQ*MOB*MOB 

IF(ABStDENULE*0*0001>SOTO  500 

AM80A*BSO*VDA*Ta*a5O*»IO8*T8 

UMaSSQ*TA*TA**SO*T8ATB-ASOAeSO 

0I5C«*MB0A*A«80A-0EN*UM 

IFIOISc.LT.OtO)  BOTO  500 
OtSCaSQRT(DISC) 

COMPUTE  RlN  AND  ROUT  AND  AS51SN  SURFACE  NUMBER  FOR 
R1N  AND  ROUT  FITH  QUADRATIC  SURFACE 

RINaUMBDA-DlSC}/DEN 
ROUT>  <AMBDA*DI5CI /DEN 

LRI»3 
LR0a3 
OOTO  *00 

SOLVE  FOR  TERMS  IN  QUADRATIC  EQUATION 

TAUa(Ri/fl2I*«2 

R2S0«R2«R2 


FIG. 


94. 


(Contd.) 
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TAzSQaTAUVRSSO 

Ta4R2>T«U* (Rz-R^) ••2 

TRR*R2>rR2SQ-TAU«R2»R4 

flET4“V)l8DN/W0N 

*LPH4»H0N/wdN 

TftlsALPHA*WDA-HOA 

TBI“ALPhA«RDe-N08 

TA2«VXaOA-eETA*WDA 

TrZ"V*§DB-8ET**iK08 

DEN  ■TAl*TAl*TAU«Tei»rBi-TR4R2 
AHBDA>T  a 1*T  a2*  TaUvTb 1 • Teg- TRRARg 
JM  >TA2«TA2*TAU*TB2«re2-rR2SQ 

lF(ABSIDEN).GTta.UO01tGOTO  ISO 
IF<R1>e0*R3)00TC1  joO 
1FUM8DA.NE.O.OIGOTO  110 
C 

Ci7  the  ray  misses  THE  QUADRATIC  SURFACE  OF  THE  TfiC 

loo  Sl<B-PtNF 


S?«P1HF 
GOTO  200 

110  TaUM/l2.*AMeOAI 

C, 

ClS  COMPUTE  distance  TO  INTERSECT  aITH  QUADRATIC  SURFACE 

c  ~ 


125 

C 

Cv9 

C 


S«BCTA4ALPH4*T 

F»S*WOM-V;teON 

TFUbSIFI  .LE<0*0001>GOTU  12b 
IF  IF (LT > 0  *  0 ^ ^OTO  100 
IFIaBS(F-HON) .LCtO t 0001 > GOTO  igS 
IFIFtGT.HONlGOTo  iao 
IFIwDN)  130*500MAO 

ASSIGN  temporary  YALUES  TO  RlN  AND  ROUT  PER  DIRECTION  OF 


130  S1«S 


SgMPfNF 
GOTO  200 
IAO  SIM-PINF 
S2-S 

GOTO  2oO 
C 

cpo  RAY  Parallel  to  side 

c 

ISO  0rSC«AMB0AAAM40A-nEN*iiM 

IfIaBSIOISCI  irGT.o.OOOllGOTO  155 
T>AMB0a/0CN 
SOTO  120 

ISS  IF tDISC>LT.o*o)GOTO  SOO 


RAY 


7l  SOLVE  FOR  TWO  INTERSECTS  WITH  OUADRAYIC  SURFACE 

OISC>SQRT(OISCl 

Tl«(AMBOA-DlSCI/DeN 

T2“<AMnOA*DISC)/OEN 

SimBETa^ALPHAAT] 

S2»aETA*ALPHA*T2 

IF(WDN.GE.o*0)60TO  I60 

faSl 
Si -52 
S2»T 


FIG.  94.  (Contd.) 
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C. 

CP.2 

C 

lAO 


170 

lao 

l‘>0 

200 


OETERmINC  IE  SIDE  INTERSECTION  HETwEEN  PLANES 


F«Sl***ON-VAaON 
IF(FtLT.0*0>GOTO  iTO 
If (F.LE.HDNtGOTO  (BO 
Sl»-PlNf 
f-Sp*WON*VKBON 
If <f »LTtO.O)eOTO  190 
If tf •LE»MDN)G0T0  ?00 
S3«PINF 

IftwDN)  220.2IU.230 


C 

C?3 

C 

210 


C 

C>* 

C 

220 


C 

230 


2*0 


BAY  PARALLEL  TO  PlAnES 

Sl«-PlNf 
Sn»PINF 
'VOTO  300 

CDNPUTE  intersections  *ITm  PLANE  SUHfaCES 

S1«RETA*ALPHA 

Sn«BET4 

LI-2 

Lnej 

fiOTO  z*o 

SI-BET* 

Sn«qET**ALPHA 

LT“1 

If (SO, lT. 0.0*  GOTO  SOP 


25  determine  which  Sijfif»rE  IS  HIT 


300  If (SI.GE.Sl jfiOTo  310 

If (ABsrSI-Sl ) .LE,0»00OJ IGOTO  310 
RtN«Si 
LRl-3 
GOTO  350 
310  RIN-Sl 
LHI-LI 

350  IfISO.CE.Sg)  GOTO  360 

If (A8S(50-S2) .LE.o.OOOllGUTO  36g 
RnOT«S2 

LR0«3 
GOTO  *00 
360  RnUT-SO 
LHO-LO 
C 

*00  IF (HlN.GE.ROUTjQOTO  SoO 

If (ABStRIN-ROOT) .LE. 0.0001  I  GOTO  500 
If (ROUT.LE.O»0>60TO  5oO 
C 

SvROUT 

!■! 

SnTOU20f*30t*10)  ,LRO 
*10  SmRIN 
1*2 

aOTO(*2ot*30**6o>  »LRI 


FIG.  94. 


(Conttl . ) 
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C 

C76 

C 


C 


DETERHINC  ir  INTCHSCCTION  mITH  BASC 

cfloss  section  or  s*sc  ellipse 


PLANE  LIES  PlTHlN 


420  riB5*WOA«VXB0A 

F2-s*woe-vxaOB 

r»f 1 47 1 / <  B 1«R 1 ) *f2»r2/ 1 R24R2 1 

lP<r*OTtl*0001>OOTO  BOO 
9OT0(4i0*4So) *I 
c 

430  IP(R3*EO*0>0*OR.R4.EO*0*D>30TO  4So 

27  OETERNTME  IP  INTERSECTION  wITn  TOP  PlaNE  LIES  VIThIN 
CROSS  SECTION  OF  TOP  ELLIPSE 


r 1 «S*NOA.VXBDA.HOA 
F2«S4ND8-VX80e-M0B 

1  “F 1 '  ‘  RS***!  >  *^2*72/  ( R44R*  > 

iF(F*or<i.oooiioaro  soo 

9070(410*4801  <1 

C78  ray  ORIOlNATES  PI THIN  TEC 
C 

480  IF (RIn.OT.o.oOOIIRETURN 
flIN*-.000l 
LR1»0 
return 
c 

C?S  RAY  MISSES  7CC 

c 

SOO  RlNaPlNF 
RaUT>-P[NF 
LB1«0 
LRO«o 
return 
end 
c 
c 


FIG.  94 .  (Concluded) 
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SUBROUTINE  ARS 

subroutine  computes  Intersections  of  ray  aitm  arbitrary 
surface  -  ARS 


OImENSION  W  (3)  tU4  (3)  (3)  •WXB  (3)  tWNO)  t 

I  HIT  (20)  »npMAL(3*2'))  *  1  SURF  <20 > 

dimension  MASTER(lOOOf') 
common  ASTEfl(lOOOO) 

COmmON/PAREM/KB (3) «WB(3) tlR 

COMMON/GEOM/LBASE»RIN»flOUT,LHl »lRO,PINF» IERfl»DlST 
COMM0N/UNCGEM/NfiPP«NTRlPtNSCAu»N8OoY*NRMAXfLTRIP«LSCAL*UREG0. 
1  C0ATAfLRlN«LR0T«L10*LUCDAf US*I3o*LBOOr*NASCfKUOOP 

COmMON/DAVI  S/I(3RI0<L00P«  INORM 

COmmon/mhich/nbo 
EOuIVAlFNCE  IMASTFRtASTER) 


901  format  (lH0.l2HERRnR  IN  ARS .  IS»  AA»  22HNUMeER  OF  mUs  ,GT,  20) 

902  format () HO •12HERflOR  IN  ARS« IS » AX t2 IHnUMBER  OF  HiTs  IS  0OO» 

I  2X.6h(nHIT»* I5.1H)  1 

903  FnRMAT(IH0«12MtRROR  IN  ARS , I 5**A ♦27HMH0NG  SEQUENCE  IN  HIT  TABLEt 

1  2X*6H (NHlT=t ISt IH)  ) 

910  format (5X»46MThIS  ERROR  USuALLT  m£ans  ThE  aRS  IS  NOT  CLOSEO  / 

1  9K»3MHIT.Sa.7MSURFACE  /  (FlZ. 4*112)  ) 

AMS  data  storage  In  ASTER  ARRAY  - 


LOCARS 


*0 

HP 

NijMHER  of  points 

NMIT  - 

number  of  hits 

3 

4 

} 

MFSERVE  80  WORDS  For  hits  (4  PER  - 

• 

) 

ALLOWS  FOR  10  PAIRS  OF  RIN/ROUT 

) 

UOCHTS  »  LOCARS  *  2 

*0 

S 

-  distance  from  Start  point  ab 

♦  1 

m 

-  direction  cosines  of  normal 

♦  7 

NY 

>  (NXtNVtN^) 

- 

♦ft? 

X 

4  WORDS  PER  Point  (X,y,2) 

• 

Y 

NP  IS  total  NUMBER  OF  POINTS 

* 

Z 

• 

FtftG  - 

SfT  *  -1  TO  SIGNAL  LINE  OR  POINT 

LOC 

«  LOCARS  *  6P 

♦  0 

X 

♦  1 

Y 

♦2 

Z 

FLAG 

LOC 

■  loc 

*  4  FOR  next  triangle 

DETERMTnF  if  RE  ENTRY 
LOcARS»HASTER(LOCnA) 

locmts«locahs*2 

1F(L00P.NE .KLOOPI goto  100 


FIG.  95.  Source  Listing,  Subroutine  ARS 
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reentry 

Ni^1T.MaSTER(L0CARS*1  ) 

IF INMIT.LE.OJ RETURN 

loc»lochts 

HOVE  Intersect  data  to  mIt  array 

on  10  1»1»NHIT 
HlTtl)»A5TERtLOC) 

L0C*L0C*4 

10  continue 
goto  600 

NOT  A  REENTRY  -  ZERO  INTERSECT  0*Ta  SECTION  OF  ASTER  ARRAy 
100  NHjTaO 

N»i 

IF (NASC.EQ.-?)eOTO  AOn 

L1»lOCmTS 

L?«L0CMTS*79 

00  110  LaLl*L2 

AST£R{U)»0, 

no  COnTInuf 

COmRUTF  for  hit  on  triangle  it,  STORE  FLAG  AT  ASTEH(LCC*3» 
-1  triangle  is  a  Point  or  lInE  (oe-genehatei 
0  NON-oEGENEHaTEt  COMPUTE  InTeRSECT  OATA 

AOn  LOC*lOCARS*R2 

NT.maSTER (LOCARS) -2 
on  *99  IT«1 ,NT 

IF  {ASTER  (L0C*3>  .lT.O.  fIjGOTi)  A90 

w ( 1 ) ■aster (LOC) 

W(?t»ASTER{LnC*l) 
w  waster  (LOC*?) 

U* ( 1 ) wASTEh (L0C*A ) -w  1 1  J 
II- (?)  waster  (UOC  +  S)  -R  (?) 

Uw( 3) waster (LOC* 6) I  1) 

V-  ( )  )  waster  (I.OC^Rt-R  (  1 1 

V*<  (2)«ASTEfl  CL0C*9)-w  (2) 

VM (3) waster (LOC* 10) -W (3 1 

WN  B  (IJ-W)  X  (V-W) 

Ai*  ( I )  wu- (2)  «VW  (3)-UR  (3)  *Vw  (2) 

AN(2)wURt3)*VR(l )-UR (1 )»Vw (3) 

RN  (3)  =u^  { 1 )  *vw  (2)  -uw  (?)  *Vlw  { 1  ) 

0  W  WR  •  WN 

0«wa  ( 1  1*I«IN  ( 1  )  *wfl  (?)  *WW  (2)  *RB(3l*<(N(3) 

DETERMINE  IF  RAY  PARALLEL  TO  PLANE  OF  TRIaNGLE 

IF ( A0S (D) •LE.O.OOni )6nT0  *90 
rfXB ( I J  ( iy-xB( 1 ) 

R)(r(?)bw  (?)  -XR  (?) 

MXR(3lw*>(3]-XR(l) 


FIG.  95.  (Contd.) 


688 


TN  A565-3-71  Vol  II 


C 

C 

C 

C 

C 


C 

C 

C 

C 


C 

C 

C 

C 

C 

C 


»  (  WB  1(  I 

OAlPH*»  ) 

?  +WXH(3>«1i<R  1 

ALPH*»OALPMfl/0 

IF  (4LPHA*(1 ,-4LPMi) »LT, 0.0) GOTO  490 
08ETA  ■  X  *0  ’ 

D8ETX«  WX«(l)»(ijiiK2)*«B{3)-U'*t3|^"B|Z|  > 

1  *»tXB  (2)  *  (IIW  t  3)  *'«*B  1 1 ) -UF  ( I )  4B(3)) 

^  *WX8(3) • tUW ( 1 ) •wB  tZ) -UW >  > 

8ET4*OBETi/D 

IF  ( beta*  1 1  , -RET A)  .l.T.ri,0)GOTO  490 
GAMMA* I alpha-bet A 

IF (GAMMA*  1 1 .-gamma) .LT , 0 .0) GOTO  490 

COMPOTE  distance  TO  INTERSECT  wiTH  TRIANGlE 
DS  »  Iw-XB)  .  MN 

ns»MXHt 1 ) *WN < 1  I •MXB (2 ) *«N<Z) ♦wXB(3)*4N (31 

s»nS/o 

Call  UnIT(mn) 

direct  normal  into  AHS  FOR  LNTRY  INTERSECT.  OUT  OF  aRS  FOR 
EXIT  INTERSF.CT 

IF ( IT- ( 1T/?)*Z.EO,0)QOTO  4l0 

WN ( 1 ) ( I ) 

wn(2)«-v(N(?) 

(  3  )  *-mN  t  3) 

D*-D 

410  JSURF«1T 

IF  (O.LT.O.O) JSURFs-JSORF 

compare  new  intersect  distance  •ITh  distances  ALREAQT  in 

HIT  TARLE 

STORE  HITS  (LARGEST  TO  SMALLEST) 

IF tNMlT.FO.OJGOTO  430 
nn  420  T*l.NHIT 

IF  (A8S(5-MIT{1)  )  .lE.O.OOODGOTO  4  fO 
IF(S,GT.HIT (I) IGOTO  4S0 
420  continue 

430  NMIT»NMIT*1 
I»nH1 T 

IF (NHIT.Le.20)GOTO  440 
435  *iRlTE(ft,R01  )NRO 

WRlTE(ft*9I0)  IHTT(I) . I  SURF ( 1 ) 1 1 • 1  * nm 1 T ) 

NH1T*0 
GOTO  700 


FIG.  95.  (Contd.) 
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C 

C  If  NEW  INTERSECT t  STORE  HIT 

C 

♦♦0  HlT(IJ»S 

nRM*L*l  *1  »»«N(n 

0HM*t (3t I ) »«N<3J 
rSURp ( I JaJSURF 
GOTO  490 
C 

C  ADD  A  HIT  TO  TABLE  »tHEN  S,GT,MIT(I) 

450  J«NHIT 

NhxT.NmIT*! 

IP tHHlT.GT,?n)GOTn  415 
C 

460  IF  1 J.lT. I ) OOTO  440 
HIT ( J41 )aHtT 1 Jl 
OHMALd.  J*1  JcORmAL  (l»J) 

ORmAL  (?  •  J*n  aORMAL  (2»  Jl 
OHmAL (3. I )«ORMAL (3»J) 

I  SURF ( J*1 ) sISURF ( J1 
Jsj»T 
goto  460 

Two  ENTRIES  IDENTICAL  whEn  S  .EU,  mIT(1> 

IF  BOTH  RTN  OR  BuTm  ROUT  IGNORE 

IF  ONE  A  RiN  awO  other  A  ROUT  DELETE  ENTRY  IN  TABLE 
470  IF t JSURF*1SURF ( I  1  ,GT.O) GOTO  490 
delete  FNTRY 


NHIT«NHIT-1 

460  TF  (  I.gT.NHTTIGOTO  490 
HIT  tl ) «HIT  ( I ♦ 1 ) 

OHmAl (1  *  I ) aORHAL ( 1 d  *1 ) 

ORmAL  (?.  T  taORHAL  (?d»)  ) 

ORmAL (3.  I  ) aORMAL ( 3i  I»1 ) 

ISURFI Tl*ISURF(I*i t 
I4T*I 

goto  AflO 

c 

C  INCREHEnT  to  TFST  next  possible  triangle 

490  LOC=LOC«4 
499  continue 

c 

c  ALL  POSSIBLE  TRIAnGlES  EXaMInED 

c  CHECK  FOR  AM  FV£N  NUMBER  OF  HITS 

C 

IF (NMl T.EN, A) GOTO  700 

IF (NHIT- (NhIT/2) •?,EQ.O>GOTO  500 


FIG.  95.  (Contd.) 
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ERROR  -  Incorrect  seooence  of  hits 

»»«TTt(6,qo?»NHO*HHlT 

ISU«F  (  T)  *  r«l*NMlTt 

NmIT»0 
GOTO  700 

CHECK  FOR  correct  SEQUENCE  OF  EXjTst*)  *NU  ENTRANCES**) 

500  00  520  Ia2*NMTT 

IFt  ISURF  ( I-D  ♦ISUREd  )  ,GT.0>OOro  SZS 
520  continue 
goto  5T0 

erbor  -  Incorrect  sequence  of  hits 

525  write <6»R03)NHO.NHtT 

wRTTE(A»Rini  (MITU)*  ISURF  t  I )  »  I  «1  'NHl  T  » 

N^^lTaO 
GOTO  700 

LOCATE  NEXT  ROUT  HISTanCE  HELATIVE  TO  CURRENT  POSITION  OF  XP 

530  IX  (HIUNHlT-l  (  ,GT  .0,01  GOTO  540 
NhIT»NNIT-? 

IE(NMIT.LE,0)GOTO  700 
goto  530 

CHECK  nIRECTION  OF  NORMAL  EUR  LARGEST  UISTflNtE  IN  HiT  TrSlE 

verify  That  noRmai  IS  an  EXIT  for  the  Rout  intersect 

5*0  IF  rNASC.EQ.-21  GOTO  GOO 

IF { ISURF ( I ) ,LT,0) SOTO  560 
DO  550  I=I  ,NHl T 

owmal  { 1 »  n=-o«M4L  ( 1  •  1 1 

0RmAL(?»I l=-nHMAL(2«I' 

ORmAl (3« I ) =-ORMAL (3.1) 

ISURF ( T )»-ISU«F ( 1 1 
550  continue 

STORE  HIT  TaBI.E  In  ASTFR  aRHAX 

unless  computing  normal  distance 

560  LOC=LOCHTS 

on  570  1*1  .NHIT 
ASTER (LOCI »MIT ( I ) 

ASTER  (lOC*  n=0RMAL  (1  t  T  1 
A5TER(L0C*?)*0Rmal (2*  T ) 

ASTERtLOC*3)»ORMAL 13*1) 
l0C*L0C*4 
570  continue 


FIG.  95.  (Contd.) 
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r 

C  CHOOSE  CORRECT  RlN  *N0  ROUT  SET  EOR  CURRENT  POSITION  OF  XP 

r  This  section  is  also  used  BT  reentry  routine 

c 

600  IF (NHIT.EO,0)GOTO  700 
RIn«hI T  <NMIT) 

ROuT«hTT<nhIT-1) 

lRT») 

LHO»l 

nHT  T«nmIT-? 

IE (ARSiOIST-ROUT) .LE»0.0001)GOTO  600 
IE  (DIST.GE.ROUDGOTO  600 
IE (AR5 (BIN-ROUT) . lE . 0 , OOO I ) GOTO  600 
IE (BIN. 6T, 0.0001 )60T0  800 
R1N«-P|NE 

lRt»o 

GOTO  Ron 
C 

<■  Rav  misses  ars  from  current  location 

TOO  Bl|g«PIf^F 

ROuTx«p^^f 

L«I"'i 

i.Bn=n 

IE (M.EO.O)NmIT«o 

800  If (NASc.NE.-?)MA5TER<LOCARSa1 )«NmIT 
RfTitRN 
E.RD 


FIG.  95.  (Concluded) 
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C 

Cl 

c 

c 

c 


SUBROUTINE  TOR 

OIMENStON  COEE  t4> ,HT (4) t*N  n>  tXbC (3) 

dimension  master ( loOO'l) 

common  aSTeRMocOO) 


COMMON/PAREM/X0(3>»W8t3l »IR 

COMMON/flEOM/LBASe,RIN*ROUTfLRI#LftO»PlNE»IERRiOlST 
COMMON/UNCO£M/NRPP.NTRIP.NSC*UpN«Oor,WBMAX»LrBlP»L*CALrl.»rao. 
1  LO*TA»LRINiLROTfLIO»LOCOA»ll5»l30»LeOOY*NjiSctKLOOP 
COMMON/OAV I S/ ! GRl D . LOOP . INOflM 

equivalence (aSTeRpMaSTeR) 


CHECK  FOR  PREVIOUS  ENTRY 


IF(L00P.NE,KL00Pt80r0  10 
THIS  IS  A  reentry 


NR«MASTeR(LOCOA*2l 

ir(NR,LE.2»RETURN 

RINaASTERlLOCDA*3) 

ROUT«A5TeRtLOC0A*Al 

Nfl«o 

aoro  aqo 

c 

Cs  RETRIEVE  LOCATIONS  OF  TORUS  OATA 

c 

10  CALL  UN2(L0CDA,1V,IN) 

LOCmLOCDApi 
CALL  UN2(LOC*IRltIR?t 
C 

c*  compute  INTEHmEDIaTE  VAHIaBLES  NtfcOtO  TO 

C  FIND  COEFFICIENTS  Of  'lUAwTlC  EQUATION 

C 

XRC( 1 (■XB( 1 )-ASTER(lV) 
XBC(2J«xe(?t-ASrEpt ( V*i I 
X.^Ct3t**a<3t-ASTERlIVP2l 
«N( I ) -aSTER ( IN» 

XN<2tsASTEH( lN*i ) 

Xm(3)«aSTER< IN*?) 

R1»4STeW(IR1) 

R2»4STeR (1«2) 

If InaSCpNE.-K' GOTO  ?0 
RSAVE»ft. 

GOTO  30 

2(1  RSAVE-ABStOOTUBC.MB)  )-Hi»«2-«2 
XBCtll**8C< 1>  *RSAVE*Hfl(  l> 

XeC(2l»XBCt2»  *BSAVEAHfl(2) 

*BC(3>"*BCt3>  *«SAYE*hr<3> 

30  niONPOOT  <He»  XN) 

KBCOMariOT  t  XBC*MR) 

XflC0N*007  (Xf}C*XN) 

XBCX8C«D0T (XBCtXHC) 

RlSQ«Rl»Rl 

«2SQ»R2»H2 

r(rRM>XBCXBC~Rl5Q->R2S0 


C 

CA  COMPUTE  COEFFICIENTS 
C 


C0EF(l)«4.*XflCD»( 

COEF l2»»4.*RlSQ*<(0N»FnN*4.«Xac0P*X8C0M*Z.*T£HM 


FIG.  96.  Source  Listing,  Subroutine  TOR 
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C 

C« 

C 

C. 

CT 

C 


COCr  <3)  ■i**<^lSO*MoN*X9c0N*4.«Xgc0i«*TERH 

DETCflMlNC  IF  Ot  Zt  OR  4  ROOTS 

ir(Nf)-z>9Qatioo*2oo 

TMO  ROOTS 


100  IFtXBS (RT  tl )>RT (2) ) •OT»0«0001 )  GOTO 
NR«0 


Uo 


GOTO  500 

110  RT(1)«RT(1)*RSAVC 
RTl2»*HT(j»*RSAVt 
IFIRT  (i  )  ,LT,RTI2U00T0  30o 
T»RTijf 
RTIi»»RT(21 
RT(2)«T 
GOTO  300 
C 

C*  FOUR  ROOTS 

C 

200  DO  210  I«lt4 

RT(1)«hT(I»*RS*ve 

210  continue 

c 

Co  SORT  ROOTS  IN  ASCENDING  ORDER 

C 

220  IF(RT(1) •IE.RT(2) jOOTO  230 
T»RT(l) 

RT(it«RT(2l 

RT<2)-T 

230  IF(RT(2)<LE.RT(3}tG0T0  240 
T»RT(2) 

RTt2)»RT(3) 

RT(3>«T 
GOTO  220 

240  tF(RT(3),LE,RT(4l)GOTO  25o 
T"RT (3) 

RT  (3)  BRT  U) 

RT(4>*T 
GOTO  230 

CIO  IF  RAY  TANGENT  TO  SURFACE  ELIMINATE  INTERSECTS 

c 

250  IF (ASS <RT(2)>RT (3) 1 (GT«Ot0001 IGOTO  240 
NRaNR>2 
RT(2l»RT(4» 

GOTO  270 

260  IF (ASS (RT (3)*RT t4U .OT»o»OOOl lOOTO  270 
NR*NR>2 

2T6  IF(ABS(RT{i)-RT(2)),QT,o.OOOI)GOTO  240 
NR«NR>2 
RT(l)»flT(3) 

RT(2t»RT(4l 

200  IF(NR.lE*0)GOTO  Sqq 

IE (RT (2 1 *OT* 0* 0 ) GOTO  300 

NRnnR«2 


FIG.  96.  (Contd.) 
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RT<))«RT<3t 

R7(2t«BTU> 

OOTO  2S0 

3D0  ir  (»JR«2)500*3S0.310 


cTi  FOUR  Intersects,  oktermine  which  rin/rout  kt  required 

c 

310  irUBS1DlST-RT<21)  ,LE.O*OOOl>OOTO  320 
lF(DIST.LT,RT(2UaOT0  330 
320  RIN»RT13) 

R0UT«RT(4) 

NR«0 

GOTO  *00 

330  ASTER(lOCOA*3>*RT(3) 

ASTER1L0C0A*4»«RT(*» 

350  RTN"RT{1) 

ROUT»RTt2) 

400  LRI«1 
lro«i 

IF (R1n.0C«R0UT}Q0T0  500 
IFUBSlRlN-ROUT)  .LC*0*0001  )Q0T0  SOO 
tF<R0UT*LE*0«0>OOTO  500 
tFtRIN,0T*0t0001>aOTO  000 
RIN«-.Q001 

lri*o 

OOTO  000 

Cl2  RAY  HISSES  FROM  PRESENT  ORIOIN 


500  RIN«PINF 
ROUTb-PINF 

LRIbq 

LRO«o 

600  H*STERlL0CDA*2lBNR 


return 

END 


C 

c 


FIG.  96.  (Concluded) 
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C 

Cl 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUSAOUTtHE  ORTIC|Cif)|N) 
dimension  C(*>*RU>*CCI3)*Rftt3) 


SOLVES, A  polynomial  EQUATION  OP  THE  TYPE  X**4  «  C|l)*X«43 
*  Ct21«X**E  ♦  C<3)PX  ♦  C(4>  "  0  USINQ  the  FERRARI  SOLUYION  OF 
THE  OUaRTIc  equation.  THE  COEFFICIENT  OF  X*»4  IS  aSSUHCO  TO  BE  1. 
R(4>  contains  The  roots,  n  contains  tme  number  of  real  Roots. 

IF  there  aRE  2  REaW  ROOTS  THEY  HILL  BC  IN  R(ll  aNq  R(»I»  HITH  THE 
COMPLEX  ROOTS  IN  RIjM*  Rl4l4I«  IF  THERE  ARE  NO  REAL  ROOTS  THE 
complex  roots  are  in  Ra>«-R<Z)41  aNq  RO)»-R|4)«t. 


COMPUTE  RESOLVENT  CUBIC 


ciso«ca»*cu) 

CC(1>— .5*C»2> 

CC(2l»,25*C(ll*C(3l-Ct4) 

CC(3)*.125*(  CU)*l4t*C(2>-ClSQI*Cl9)»C(3l  » 
call  CUBIC<CC<RR.NN» 

c. 

Cp  determine  if  possible  solution 

c 

T«.25#C1SQ-C{Z) 

00  10  1*1  »NN 

ROOTvRRtlt 

ASQaT.flOOT.ROOT 

•LE.d.oOOCOI  USQao, 

IF (A$O.LT*o.o)QOTO  10 
BS0«ROOTPflO0T-C  1 4 1 
IF  <  aBS  (BSQ 1  ,LEt  0.00000  DBSQaO. 
IP(9SO.OE*o.O)OOTo  20 
10  CONTINUE 
N*o 

return 

C 

CT  COMPUTE  FIRST  ThO  ROOTS  OF  OUaRTIC  EQUATION 

20  THOAB«Ctl)*ROOT-C{3l 
ASSORT  USQ  I 

R«SI(JN( SORT  (8301  iTHOABt 
N40 

REAL».2S»U*A-Ctl)» 

OISC"REaL«REAL-ROOT.B 
SaROOTaSQRT(ABS(DlSc) I 
IF ( ABSIoIScI *LC. 0*000001 >disc*o. 
IFtOISC.LT.o.QieOTO  So 
c 

Ca  discriminate  .BE.  0  COMPUTE  2  REAL  ROOTS 

c 

NaZ 

R<1 >aRCAL«SQROOT 
R<Z)"REAL*SOHOOT 
OOTO  40 
C 

CS  discriminate  ,LT.  0  COMPUTE  2  IMAQlNARY  ROOTS 

SO  ROlaREAL 
RlAJaSOROOT 
C 

Co  compute  LAST  THO  ROOTS  OF  OUARTIC  EQUATION 
C 


FIG.  97.  Source  Listing,  Subroutine  QRTIC 
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C 

CT 

C 


C 

Cr 

C 


40  WE*L»RE*L-A 

D15C»RE*L*REAL-R00T-B 
SOROOT-SORT (ahS(oISc>  > 
truss {01  SC}  >LE. 0.909001  }OISC>0* 
tF<orSc.LT.O.O)OOTO  50 

discriminate  ,66,  0  COMPUTE  2  REAL  ROOTS 
N"N*2 

R{N}*REAL-SQH00T 

R(N-iI»REAL*SOROOT 

return 

DISCRIMINATE  .LT*  0  COMPUTE  ?  INAOIhARY  ROOTS 

50  P(N>r>-R€AL 
RtN«2lsSOROOT 
RETURN 
END 


FIG  *  97  <  (Concluded) 
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SUBROUTINE  CUBIC (C*R*N) 
dimension  C(3>tR(3) 

St  compute  roots  of  CUBIC  equation 

C 

CISQ«C(1)«C<1) 

P«C(2)«ClSO/3* 

Q«Cl3)*C(l)*(2**CltQ/2T«*C(2>/3*) 

0 1 SC»4 . •P«P»P* 17 , •e«o 
C3*C(l>/3» 

IF(ABS(OlSc)*LE.i.oE-a)OISC«0* 

IF(01SC*LE*0«0>OOTO  lo 
C 

CP  CONDITION  for  1  REAL  AND  2  COMPLEX  ROOTS 
C 

N«l 

SQROOTaSQRT(OISC/10R*) 

HALFQ«.S*Q 

ACUa-HALFQ»SQROOT 

BCUa>HALFQ*SQROOT 

A«S!0N(ABS(ACU)»*.333333333333333tACu) 

BaSt0N<ABS(BCU>**.333333333333333»BCu) 

AB«A«B 

R(1)«AB«C3 

R«2»*«.5*A0-C3 

Rl3l**B6A02S40A*(A«B> 

RETURN 

C 

C3  condition  for  3  REAL  ROOTS 
C 

10  N*3 

T»S0BT<ABS(P)/3.> 

TT»T*T 

IF<Ol$C*CQ.0«0lOOTO  2o 
PmI3«aTaN2 (SORT I-01SC/2T#  > ••Q» /3« 
R(l)«TT*COS(PHl3>.C3 
R (2) •TT*COS<PHl3«2, 094395103) *03 
R(3>"TT«COS(PHl3«2, 0943951 03) *03 
RETURN 

e 

C4  CONDITION  FOR  2  OR  3  EQUAL  ROOTS 
C 

20  R(l)«SI0N(TTt-Q)-C3 
R<2)«$lQN(TtQ)-C3 
Rl3)«R(2) 
return 
END 


FIG.  98.  Source  Listing,  Subroutine  CUBIC 
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C 

c 


SUBROUT INC  UNclLtJltUO 

UNPACK  2  IS-BIT  InTCBCR  DaTA  ITEMS  PaOM  t  «OR0  IN  MASTER  ARRAY 

common  master  1 10000) 

IjBMASTERtL) 

•Jl»l3/3276S 
J2»l3-Jl *32708 
RETURN 
END 


FIG.  99.  Source  Llstiag,  Subroutine  UN2 
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SUBROUTINC  UN3<Lf 

UNPACK  2  6-eiT  AND  1  19-BlT  iNTCeCR  DATA  ITCNS  fROM  0}  HORKINQ 
$TORAO«  at  the  L  WORD  IN  THE  MAiTER  ARRAY 

COMMON  mA5T£H(10000> 

13»NA5TER(L» 

I2M13/32768 

4T»I2/64 

J2*I2-JI*6A 

J3»l3-I2*32T6e 

return 

END 


FIG.  100.  Source  Listing 
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SUBROUTINE  OPCNK (L* Jl« Ji* J3> 

COMM0N/0TRACK/Dl<02*KHIT(LHAK*TR(200)*X8S(3»»lRSTRT*IeNC* 

1  TTR (2o61*CA*CE«E4*EE 

UNPACK  3  12*eiT  InTEOCR  DATA  ITEMS  FrON  COMPONENT  CINE-QF*SI0HT 
STORAOE  array  ITR.  THE  THREE  ITEMS  APE 

/  surface  number  /  body  number  /  NEXT  REQION  / 


T3»ITR(L) 
1Z-I3/AOR6 
Jl*12/A096 
J2*l2*Ji*AcR4 
J3«I3-I2«A096 
RETURN 

end 
C 
C 


FIG.  101.  Source  Listing,  Subroutine  OPENK 
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function  RANtH) 

CONMON/RaNdN/IRN 

GIVEN  A  NUnbER  IRN*  BeNCRATE  A  RAHOON  NUHUR  BETNEEN  0  AND  I 
RANaURANai  URN) 

return 

END 


fig.  102.  Source  Listing,  Subroutine  RAN 
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rUNCTION  UR«N31(It 
IPa)2i)*10<20 
10  1*11111111 
20  J*I 
J*J»2S 

J«>Tj/«7108S44>  *67108864 
J*J*2S 

J*Jr(J/67106866) *67108886 
J*J*S 

J*J-(J/6ri08866> *671 08864 
1*J 

URAN}i«A1/6T108864* 

RETURN 

END 


FIG,  103.  Source  Listing,  Subroutine  URAN31 
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SUBROUTIMC  CHOSStANSWtBiFIRST  tSECONUt 
Dlt*eN5iOH  *N5KER(3>  •flSST (jl  tSCCONQlst 

COMPUTE  CROSS  PBOOUCT  ANlMER  •  FIRST  X  SECOND 


answer (U  « 

ANSWER (2)  ■ 

answer t3l  ■ 
return 

END 


FIRST {2)*SECONO(3) 
FIRST(3)*SEC0N0(1) 
F1RSTa)*SEC0N0(2) 


•  FIRST (3T*5EC0N0(2» 

•  FtRST(l}*SECOND(3> 

•  F1A$TI2)«SEC0N0<1> 


FIG,  104.  Source  Listing,  Subroutine  CROSS 
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FUNCTION  DOT(riftST»SCCOND> 

dimension  FlRSrOltSCcONOtSl 

COMPOTE  OOT  product  DOT  ■  FIRST  «  SECOND 

OOT  *  FlRST(t)»SECOND(l)«FIRSTt2t*S|cONO(2>*FlRSTO}*SECONOO} 

return 

END 


FIG.  105.  Source  Listing 
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subroutine  UNIT(V) 

DIMENSION  VO) 

C 

CT  COMPUTE  UNIT  VECTOR  (DIRECTION  COSINES  OP  VECTOR) 
C 

TEMP  ■  SQRT(OOT(V#V)) 

V(l)«V(l)/TEMP 

V(2)«Vt2)/TEMP 

V(3)«V0)/TEMP 

return 

END 

C 

C 


FIG.  106.  Source  Listing,  Subroutine  UNIT 
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FUNCTION  XOIST(XA*XB} 

C 

Ct  COMPUTE  THE  DISTANCE  BETWEEN  TWO  OlVEN  POINTS  XA  AND  XB 
C 

DIMENSION  XAOl.XBtSI 

XSUMWfli 

DO  10  I»l»3 

XSUMWXSUH* (XA ( I t -XB ( I n ••s 

10  continue 

XOISTMQflTtXSUH) 

RETUPN 

END 


FIG.  107.  Source  Listing,  Subroutine  XDIST 
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SUBKOUTINC  OCOSPiXAtXBfMAI 
C 

C?  COMBUTC  THf  DIRECTION  COSINES  FROM  ROINT  XA  To  ROinT  XB 
ANO  STORE  DIRECTION  COSINES  IN  HA 

DIMENSION  XA(3)*XBU)«HA{}I 
DIS«X01$TUA«XB) 

00  10  I*l»3 

NA(I>«(XB<n-XA(It)/OIS 
10  CONTINUE 
RETURN 
END 


FIG.  108.  Source  Listing,  Subroutine  DCOSP 
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h 


C. 

c> 

c 


SUMOUTINC  TROPIC («P) 

OCNCRAte  RANDOM  DIRECTION  COSINES  PROM  AN  ISOTROPIC  DISTRIBUTION 

DIMENSION  MPO) 

10  Xl-RAN  <-l) 

X2«RAN. (•!) 

XSS*X2«*2 
TaXiS*X2S 
IP<T,OC*1*IOOTO  10 

COMPUTE  THE  SINE  aNO  COSINE  Of  A  RANDOM  ANSCE  PHI 

CSPHI«(X1S»X2S)/T 
SNPHI«{2.*X1*X2)/T 
Xl-RAN  l-l) 

If (Xl.CE..5)SNPHl>-SNPHl 

COMPUTE  THE  SINE  AND  COSINE  Of  A  RANDOM  ANBlE  THEta 


C 

CSTMT»2.«RAN  <»l)»l, 

SnThT«SORT ( 1 • -CSThT«*E I 

^4  COMPUTE  Random  direction  cosines 

c 

MP ( 1 ) aSNTHTMSNPHl 
HP  <2 ) •SNTHT*CSPm I 
HP(3)acSTHT 
RfTURN 
END 


FIG.  109.  Source  Listing,  Subroutine  TROPIC 
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FUNCTION  StIfN) 

dimension  master ( lOOOOt 
common  ASTEfldOOOOI 

COMMON/OEOH/LBASE«RiN*ROUT«LRl »LR0(PINF i lERRtoIST 
equivalence f MASTER* ASTER  I 


1 


s  retrieves  coordinate  Of 
1  IS  The  rpp  number 


ANY 

N 


ONE  Of 
IS  The 


THE  6  SIDES  OP  AN  RPP 
SURFACE  number 


L«LBASC*12«tl.l) •2«<N>1> 
LL«MASTER<L*1) 

S*ASTER ILL) 

RETURN 

END 


FIG.  110.  Source  Listing,  Subroutine  S 
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SUenOUTlNC  RPP2(L$UnFtXP*IflPt 

Si  riNO  NUKBCH  OF  abutting  hpp  to  INTCBSECTEO  surface 

c 

DIMENSION  XPO) 
common  ASTERtlOOOOJ 

COMMON/PAACM/XB (3) tWB lit  t IR 

C0MMQN/6C0M/LeA$C'AlN>A0UT»LAltLA0(PlNF«lEAA*DlST 

COHHON/UNCOeM/NRPPtNTAlP«NSCALtNaOOT(NRMAX(LTRIP*LSCAL«LREBD* 
I  LOATAttAlNfLROT«L|OtLOcOA*llS«l30*I.BODTfNASc*KI.OOP 
C 

tOCatBASE*12*tNASC*l>*2*(4SURF«l) 

CALL  UNz1UOC*LOCAT«NCI 
lFtNC*i) I0*20i30 
io  IAP*0 
RETURN 

2D  CALL  UN2<LOCATtlRP«DUHt 
RETURN 
3D  M-I 
C 

00  9D  iMliNC 

Ma-M 

lF(H*aT*0>OOTO  90 
CALL  UN2<L0CATi1i«12) 

LOCATmlOCAT*! 

IRP-n 
GOTO  TO 
50  IRPMI2 
TO  LS*(1-LSURF)/2 
00  60  J"lf3 
IFtJ.EQ.LStQOTO  SO 

IF(  lS(lRPf2*J-i  t*XPUI)«(XP(J»-SllRPi2«Jl  >.LT,o«>OOTO  »0 
60  continue 
return 

90  CONTINUE 
IRPaO 
return 

END 


FIG.  Ill.  Source  Listing,  Subroutine  RPP2 
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ii 


$UeftOUTlNC  VOLUM 

COMPUTE  VOLUMES  BY  PCBION  IN  VOLUME  OCPINEO  BY  BOX 


OIMENSiON  VASTER(IOOO)  »MABO>  »MTB(J»  ,MOBC3»  *0tPI3)  t 
I  XV(3) tXTCs) tXA(3) **0(3) •XPIsI iXTeNPCi) 


C 


COMMON  ASTCRdOOOO) 

C0MM0N/PAPEM/XB(3) tWB(3) tIB  ^ 

COMMON/OEOM/LBASE iPINtPOUT •LRI tUBOtPlNp • IERB*Ol*T 
COMMON/UNCeCM/NPPp  «  nTP IP  t  Nf C AL«  NBOO V • NPMAX  *  LTR I P • LiCAL  *  CREOO • 

1  LOATA»LPIN»LPOT«LlO*LOcOA*Il9*IJO»LBOoV»NASc«NtOOP 

COMMON/MALT/LIRPO*NBiePP 


90|  FORMAT OEEOtB) 

909  PORMAT ( iMo* ioX»6HVERTEXt 14X#6HT0P«PT « i4Xt6NB0T«RT t I4Xt7H$I0E«PT) 


909  FCr(MATllHo**8X*i2HOCLTA  ON  TOPtE20*B*loX*loH9lDC  OCUTAtESOtB) 


906  format (2lI0> 

90B  FORMATdHOf  2X* IBHSTARTINO  RCOION  IftlS) 

909  format dM0»l6MVASTER  0VERMRlTEt9*»6HNRMAX** l5» 

9X9  FORMATillO*E20.8) 

9X1  format (XH0»8HBAD  CARO/I10*E20.8»UH  NOT  PROCCSSCO) 
912  FORMAT (lXO*E20*B*SX*E20*B*9XtE9. 2) 

9X3  format dH0*9HSUMV«tSXtE20*8) 


READ  (9*906)  IR*NOxE(^F 
lF(N9xERR*LE*0)NOiERR*2S 

8p  enter  coordinates  of  box 


c 

READ  (9*901)  (XV(n«I*Xt3) 

READ  (9*9ox) (XT(I)*I*X*3) 

READ  (9*901) (XO(I)*X«X*3) 

READ  (9*901)  (XAd)*IMX*3) 

ENTER  CELL  SIZE 
C 

READ  (9*902)OOD,DT 
WRITE  (6*9o3) 

WRITE  (6*90A> (XV(J)tXT(J)»X0(J)*XA(U)*J«l*3> 
WRITE  (6*90S>OOo*dT 
WRITE  (6*908) IR 

1F(NRMaX.QT.2000)wR1TC  (6*909)NRMaX 
CALL  DcOSP(XV»XT*WTB-) 

CALL  OCOSP(XV*XO«WOB) 

CALL  0C0S^**''**A*Wa8> 

XV01SaX0IST(XV*XA) 

TESTONaO* 

TESTOVWo* 

XTEMPCi)ao. 

00  10  iai*NRMAX 
VASTER(I)ao. 

10  CONTINUE 
JTRaIR 
IRJaIR 
C 

Ca  compute  number  OF  horizontal  and  vertical  cells 

c 


FIG.  112.  Source  Listing,  Subroutine  VOLUM 
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C 

C9 

C 


100 


c 

Cft 

c 


c 

CT 

C 


IIS 

120 


c 

ct 


130 


U9 

15? 

100 

.  ITO 

C. 

ClO 

c 

ISO 


N2«UIST  UVtXOf  /DO0«  1  • 

N1»K0IST{»V»KTI/DT*1» 

trace  rats  prom  lower  RIRHT  corner  or  EACM  cell 

DO  300  JMltNZ 
00  100  l*lt3  . 

OSP{Il«WTEtll«DT 

X8(I)aXV(I) 

W8 1 1  >  mxa  <  I ) 

CONTINUE 

5l«0» 

IR-JIR 

trace  all  RAT5  PROM  COLUMN  OP  CELLS 

DO  200  Ial(Nl 
Hi -C*-! 


trace  ray  ThROUOH  box  via  SUIROUTInE  01 

CALL  ai<si»iftRRiM.xp» 

1P([ERR*OE*NOiERR>OOTO  AOO 

Vaster i i r  >  mvaSter ( ir>  *$i 
IPfOlSt.OE.XVDISlOOTO  US 
IP(IRRRIN.LC*0)OOTO  UO 
IRVIRRRIM 
OOTO  110 

vaster  tIR>*VASTCRIIR>-'(OIST-XVOlS) 

XTCMP(l)aMe(U 

XTCMPt2)«Net2> 

XTEMP(3)»VBt3» 

1R*U1R 

TCST0N*TC5T0N-DT 
IPITESTDN.OT.n. >eOTO  100 

WB<i^*w7e<U 

MBtElaWTBtZ) 

Me<3)»WTB<3> 

NASCM-l 

determine  REOION  op  next  ORtOIN  OP  Ray  in  COLUMN 

CALL  01 (Sl,lRPRIH,XPt 

IPdERR.OE.NOiCRRtOOTO  400 

IP(Sl«0T)130»160»i70 

IR«IRPRIH 

JIB«tR 

CALL  Oi<Si»IRPRIM,XP) 

IPtlERRfOE.NOlERRIOOTO  ADO 
IPI01ST*DT» 1A0»160»1T0 
IPIIRPRIM>lSD*tl0U30 
STOP 

IRNlRPqlM 

JIRPIR 

TeSTdnmSi 

SHIPT  0RI9IN  OP  RAY  TO  NEXT  CELL  IN  COLUMN 

DO  190  Jl«lt3 
NBtJDaXTEMPCJl) 


FIG. 


112. 


(Contd. ) 
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xetjn«xB(ji>*o$p<Ji> 

190  CONTINUE 
200  CONTINUE 

Cil  ONE  column  Of  CELLS  COMPLETE  -  SNIfT  TO  NEXT  COLUMN 
C 

210  N*5C»*1 

DO  220  l*lt3 

wb<i)*mob(i) 

XSlI>«XVIIt 
220  CONTINUE 
JIPalRJ 

TESTONao* 

TESTOVaTESTOV-DOO 
If tTESTOV)230. 230*280 

Cl2  DE (ERMINE  REOIOn  Of  flHST  ORIOIN  Of  NEXT  COLUMN 
C 

230  CALL  31(51. IRPRIM.XP) 

If (lERR.OC.NOlCRRIBOTD  400 
If  ISl-OODl240*260>270 
240  IRalRPRIM 
1RJ41R 

CALL  Oi(SlflRPRtM.XP) 

If (IERR.QE.N01ERRI3OTO  400 
If  <  D I ST-OOD ) 250  *  260 • 2T  0 
250  If ( IRPRIM) 255.400*230 
255  STOP 
260  IR-IRPRIM 
IflJaIR 

270  TESTOVaSi 

Si3  SMIfT  ORIGIN  Of  NEXT  RAT  TO  fIRST  ORIGIN  Of  NEXT  COLUMN  Of  CEllS 
C 

280  DO  290  1*1*3 

XA<llaXA(I)*W08(I)«000 
XV(l)aXV(I}*HOB(I)»OOD 
XT ( 1 1  aXT ( 1 ) ♦MOB ( 1 ) *000 
290  CONTINUE 
JTRaIR 

300  CONTINUE 

^Ta  ALL  Ray  distances  through  each  region  in  sox  aCCUhULATEO 

c 

400  RE40  (5*910) IRl.VR 

If (lERR.OE.NGiERRtGOTO  BoO 
If (IRl.LE.O) IRiaNRMAX^i 

SUMV*t), 

C 

cys  compute  volume  Of  Each  region  in  box 

c 

00  450  lal.NRMAX 

Vaster ( i ) mvaster i i ) 4000*07 
If (I»lfll)4l0*A30*A20 
410  MRITE  I6*910)I*Va5TeR(II 
GOTO  440 

420  WRITE  (6*911) IRi tVR 
READ  (S*910llRl*VR 
GOTO  410 


FIG.  112.  (Contd.) 
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c 

5i6  COMPUTE  percent  ERROR  FOR  PRC-COMPUTeO  VOLUME  OF  GIVEN  REOION 

c 

XPeRC«100.P<VA$TERTl)/9R-l.> 

WRITE  (6*912) ItVASTERII) tVR*XPERC 
vaster tl)«VR 
READ  {9*910>1RI*VR 
C 

51 T  COMPUTE  TOTAL  VOLUME  OF  ALL  REOIONS  WITHIN  BOX 
C 

AAO  3UMVB$UHV*VA5TeR(I) 

ASO  CONTINUE 

SrITE  (6*9i3)SUMV 

5oo  IERR»0 
return 

END 


FIG.  112.  (Concluded) 
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SUBROUTINE  AREA 

dimension  XP(3»  *WP(3) tXBSts) tcONVRT(4tA) tTYPEUNfA) 

common  ASTEfidOOOOJ 
COMMON/P  aREM/XB (3>iWBl3)*IR 
C0MMON/9E0M/LB A SC •RlN*ROUTtLRl«  LRO  »  P I NP 1 1 ERR  *  01 ST 
COMMON/UNCSCM/NRPP  «  nTR I P  «  NSCAL  t  NBOO  Y|NRMAX»LTrIP*L  SCAL • LRE  80 1 
1  LDATA»LRlN*LROT.LlOtL0C0A»IlS*lJ0*L8OOYfNASc»l'l-OOR 
COMMON/ CAL/N I R 1 9L0S  *  AN8LC  »NT  YPC • SSPACC  »L*XS(3>>PSt3>f 
I  TRAVEt*SN»V*HttVlH 
COMMON/ N  aLT/L I RfO . N8 1 CR* 

COMMON/CELL/CELS I z 
COMMON/ENfieOM/LEOCOM 

901  FORMAT tTIlQ*«X»2A2) 

902  FORMAT (6E17.5> 

9oA  format (1 Ho •22HHEH0RY  OVERLaR  IN  ARCA»BX»TMt.E6EUN"*lAt 
1  5X»oHLARCA««lA*5X»AHLIRFO««I«t 

909  Fi'RMAT  (IHOflSHERROR  IN  ARCAiSX«9H1COoC  «  0l 

910  format (lMOt8HAZlMUTM**FlO 0*5* •IOMCL£VaYION»*F10!3> 

911  format tlH0*l2HCELL  SIZE  t5<F4* 1 tlX* iHl (FAr I  *  IX  * AZt IN. • 10X« 

1  IZHARCaS  in  90**1X»a2*1Hr> 

912  format  1 1 Ho  *5H I CODE  *  1 9X  *  AHAREA/ ) 

913  format (IsrISXrFIZ.SI 

914  format ii Mo rISMPRESCNTeo  AREA^rFIZrS* 

9i9  format ^1 Mo «18HNUMbER  OF  CELLS  litlsRioX* 

1  22HNUMBER  OF  CELLS  HIT  IS* I 5) 

DATA  HHlNtHHFT*HHCM*HMMBtHHM/ZHlNtZHFT«2HCH(2HM  ,2H  / 

TYPCUN(1»«MMIN 

TYPEUN(2t»HMFT 

TyPCUN(3>MHMCM 

TYPEUNIaIbHHMB 
CONVRT  tl>l)«lR 

CONVRT  1 1 «  21 ■■ 0069AAA4AAAAAAA 
CONVRT 1 1 «  3 1  *6 • as I aZS80« 

CONVRT ( 1 »At a. oooAaS1«Z980A 
CONVRT <2* 1»«1AAr 
C0NVRT(2»2)»1, 

CONVRT  tZ*3) *929.0341181 
CONVRT IZ*A>«r09Z903A1181 
CONVRT ( 3 • 1 ) ■ . 1 5499969 
CONVRT I 3t2)a* 001076386736 
C0NVRTl3»3)*l. 

CONVRTt3«4r*.0001 
CONVRT  U  *  I ) ■ 1549 • 9909 
CONVRT  <  A  *  2>  *1 0 • 7636730 
CONVRTU»3>«10000. 

CONVRT (4* a)*1r 
aCANKwMHBB 

COMPUTE  and  INITIALIZE  AREA  FOR  SToRINB  PRESCNTEO  ARCA 

Sr  component  code 

LAREAaLlRFO-lOOO 
IF(LARC*r0E.LE8E0m}90TQ  lo 
WRITE  (0*9o8>LEOCOH«LAREA«L1RFO 
STOP 

16  LARCAlaLlRFO-l 

00  20  L*LARCArLaRCA1 
ASTeRIL**Or 


FIG.  113.  Source  Listing,  Subroutine  AREA 
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C 

C9 

C 


c 

C) 

c 


c 

C4 

c 


c 


u 


20  CnNTlNUE 

flEAO  on  10  INPUT  papahcters 

READ  (9,90UNX*NY«1RSTRT  , lENC«NOieRR*NSTART|NCNO,ceLLUN,AREAUN 
READ  <5*90ZtA*E#EN#TH»ZSHIfT»aROUND 
read  <S*902>*SMIFT»ySHlfTfCCl.Sl2 

INITIALIZE  PARAMETERS  NOT  SET  BT  iNfUT 


irtIRSTRT  .LE.O} IflSTRTal 
IFtCELSlZ  .LE.0>»CELSIZ«4. 

IFtNSTAflT,LE.O>NSTABT«i 
IF  I NOi tRR • LE • 0 ► RO I ERR*Z5 

IF ( tREAUN. EQ. BLANK) ARCAUN«HMIN 
IF(CELLUN.CO»0LaNK)CCLLUN*MMIN 

determine  measurement  UNITS  AND  COMPUTE  ORlO  CELL  AREA 


DO  30  I«ltA 

IF(CCLLUN*CQ.TVPEUN(I)}<10T0  40 

30  continue 

40  DO  90  J«l«4 

IF UREaUN*E0>TYPCUN( J) IQOTO  00 
lo  AReA^MclLSlZ^CCLSlZiCONVBT { I « J> 

RAOIAN«.01T4S3292519943 

aR«a«Ra01an 

ER*e*RAOIAN 

Sa«SIN(aR) 

CA«COS|AR) 

SE>SINtCR) 

CE«C0S(ER) 

KL»N*«NY 

NMIT*o 

PROCESS  KL  CELLS  IN  BRIO  PLANE 

DO  200  KKaNSTARTtKL 
PB(1)>-CE*CA 
MB<2)>-CE*5A 
M8t3>M-SE 

compute  row  and  column  number  of  or 10  CELL 


Il«( (KK-l)/NKj*l 
J»KK-(II-I)4NX 
C 

CELL2«*5*CEL$IZ 

VaFLOATf  <NY/2)-II)4cELSIZ  *CELL2 
VREF*V*CELL2 

H«FL0aTUNX/2)-  J)»CELSIZ  *CCLL2 
HREFaH*CELL2 

iv*ran{*i»»io* 

1M*RAN(-1 )«10. 

IV1H»10»1H*IV 

C 

CT  COMPUTE  Random  point  within  orio  cell 

c 


FIG.  113.  (Contd.) 
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V«V«CEUS1Z  •rLOAT(lV)/10i«CELSZZ  /20, 

H»M*CElSIZ  •float (lMt/io»*CEtSIZ  /20. 

c 

)tBS(l)BXSHirT«V«CA*5E-H*SA 
XgS (2»  *ySMIFT-V*SA*SE*H»CA 
X8Sl3>«Z5HIFT*ViCE 
call  TROPIcIWP) 

XSS ( 1 ) «XgS ( 1 ) «WP 1 1 ) •! , oE*4 
XeSC21»X8S(2MFPl2>»l  .o£-* 

X8S{3>*KB5{3)*MP{3M1.0E-4 

C 

Cs  convert  grid  plane  coordinates  to  COOROtNATCS  OF  TARGET 
C 

XB  U ) >XBS ( 1 ) -CNGTHttWB  < 1 » 

XB(2)«XG5tz)*ENGTH«WB(2) 

XB<3)«XB$(3)*ENQTH*MBt3) 

IFIKB<3).LEt0R0UNOl3OT0  200 

9  TRACE  HAY  TO  FIRST  TARGET  COMPONENT  HIT 

IR-IRSTRT 

nasc«*v 

no  CALL  Gl  (Si ,  IRPRIM.XP) 

IF (lERR.OEiNOlERRlRETURN 
IF{IRPflIM«LT.O)80TO  200 
IF (NASc.LEiNRPP) tRPRlM«o 
IFdRPRlM.EQ.OlOOTO  200 
L0C"LIRF0*IRPRIM-J; 

CALL  UN2(L0Cf ICOOEtlDENT) 

IOEnT-IOCNT-1 

IF(IOENT-(IOENT/'ioI*'IO.E(».o>GOTO  120 

IR»IRPRIM 

GOTO  110 

120  IFdCOOE.NE.OtOOTO  130 
WRITE  (6*9091 
GOTO  200 

130  loc»l*REx*1code-i 

ASTER  (LOCI  >aST£rIlOCM  are  AC 

NHIT«NH1T*1 
200  CONTINUE 

10  PRINT  results 
MRITE  t6*9101AiE 

WRITE  {6i9n)CELSTZi  CELSU*  CELLUN? ARE AUn 

WRITE  (6*9i2l 

SUMa*0* 

DO  250  I*1 *999 
LOCwLAREA*r-l 

IF  (aSTeR(LOC) tEO.o.lOOTO  25o 
WRITE  (6*9i3HiASTEH(lOC) 

SU«a*SUMa*aSTeP(LOC) 

250  CONTINUE 

WRITE  (6*9i4JSUMA 
WRITE  (6*915JKL.NHIT 

return 

ENO 


FIG.  113.  (Concluded) 
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C 

ci 

c 


901 

902 

903 

904 

905 

906 

907 

905 


C 

C? 

C 


c 

C3 

c 

c 

C4 

c 


c 

c 


10 


SUBROUTINE  TESTO 

TRACE  A  RAY  BETWEEN  TWO  GIVEN  ROlNTS  XB  TO  XBf 

DIMENSION  XP<3}»X8F(3) 

CnMM0N/PAREM/XB(3) *W6(3) *1R 

COMMON/OEOM/LbaSE*RIN«ROUT*LRI •LROtPlNf ♦ URRtoIST 
COMMON/UNCOEM/NRPP  »  nTR I P  »  NBC AL  t  NBOoV  *  NRM AX  *  LTR IP • lSCAL • tREOO  t 
1  L0ATx*I.RIN«LROT*LIO#LOCOA*I15»I30»L8O07»NASC»»<I»OO^ 
COMMON/WALT/LIRFO«N01CRR 

FORMAT (2110) 

format C1Mo*22HNUMBER  of  special  rays, IS) 

F0RMAT(3E18.7»3115> 

format (lHo«SHSTART*5Xt4H  XB»#3ei5»7»8H  IRSTRT««IS/ 

1  4H  EN0,7X,4HX8F««aCI5*7*BH  IRF1n«*IS) 

FORmaT(1Ho*3HWB>*3E1S«7*5X««HRaNGE«*E1S*7* 

format  I 1H0»8Xi2H1R»4X.6H1RPR1m»12X*2m$i*13X*2mXP»i3X*2HYP, 

1  13Xt2HZP*12X*4H0l9T) 

FORMAT(2ll0*5X*SClS*7) 

format (lHOt21HTROUBLE  IN  REGION  1R«*I10) 

ENTER  number  of  RAYS 

READ  (5*901>NRAYS,NGURR 
WRITE  (6*902)nRaYS 
IF(NOlCRR*LE*0)NOlERRa2S 

trace  given  number  of  rays 

00  50  IRAY*l,NRAY3 

ENTER  POINT  coordinates  AND  REGION  OF  EACH 

READ  (S«903)XB,tRSTRT 
READ  (S*903)XeF,lRFIN 
WRITE  (6«904)XB,IRSTRT*XBF*1RF1N 
RANQEmXOIST (Xb»XBF) 

CALL  0C0SP(X8«XBF*WB) 

WRITE  (6(90S)MB»RaN0C 

IR-IRSTRT 

NASC"-1 

WRITE  C6*906> 

trace  ray  to  NEXT  REGION  INTERSECT 

CALL  01 <S1,IRPRIM,XP) 

IF(IERR*6C»NG)ERR)OOTO  60 
WRITE  (6f9o7) IR.IRPRlMtSltXPtOIST 
IF(01ST.OC«RaNGE)QOTO  30 
IF(IRPRIM.LE.O)OOTO  20 
IR*IRPR1M 
GOTO  10 


20  WRITE  (6t9o6) IR 
GOTO  50 

30  IF(IR.NC.IRFlN)OOTO 
50  continue 
60  lERRaO 

return 

END 


20 


FIG.  114.  Source  Listing,  Subroutine  TESTG 
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SAMPLE 

INPUT 

1 

24 

12 

-LOOOO. 

10000. 

10000, 

6 

10000, 

•lOOQO. 

lOQOO* 

2 

BOX 

75* 

-36, 

12. 

*150. 

0. 

0. 

BODY 

2 

0* 

72. 

0. 

0. 

0* 

36. 

1 

BOX 

74* 

-15. 

13. 

-143. 

0. 

0. 

(l.Ot 

3 

0* 

70* 

0. 

0. 

0. 

34. 

4 

ARB 

75* 

•36, 

12. 

75, 

36. 

12* 

FRONT 

4 

75* 

36. 

46. 

75* 

*36, 

43, 

4 

100* 

0* 

12. 

100, 

0. 

12. 

4 

too* 

0. 

12* 

100. 

0. 

12. 

4 

1234 

6435  6123 

6237 

7415 

7415 

5 

ARB 

•75. 

-36* 

12, 

-75. 

36* 

12. 

REAR 

5 

-75* 

36* 

43* 

•75- 

-34* 
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